Очень прошу, помогите! С информатикой вовсе не дружу! Нужно составить программу на паскале. Задачу не очень помню, звучит примерно так: Сумма покупки 1200 рублей, скидка предоставляется при покупке свыше 1000 рублей, скидка - 10 %, сумма покупки 1080 рублей. Внизу схема, она правильная!

2

Ответы и объяснения

2013-12-05T17:41:55+00:00
Попробуй так
Program qq;
Var a: integer;
Begin
Readln(a);
If a>1000 then
A:=a-(a*0.1)
Else
Writeln(a);
End.
ну извините, что в 2 часа ночи не могу сесть за компьютер и протестировать программу
а насчет "else" вы правы, я похоже условие не так прочитала
тогда можно написать if a<1000 then writeln(a) else s:=a*0.1);
s:=a-(a*0.1)
Нет, так тоже не стоит. В блок-схеме нету этого условия, зачем придумывать?
  • Sky09
  • профессор
2013-12-05T21:43:52+00:00
var a:real;
begin
  readln(a);
  if a>1000 then a:=a*0.9;
  writeln(a);
end.