Вычислить стоимость покупки со скидкой - Pascal ABC (16784)

Формулировка задачи:

В чем ошибка?
program z;
var a:real;
begin
writeln ('введите стоимость покупки');
readln (a);
if 500<a<1000 then b:=a/100*97;
if a>1000 then b:=a/100*95;
writeln ('ответ', b);
end.

Код к задаче: «Вычислить стоимость покупки со скидкой - Pascal ABC (16784)»

textual
program z;
var a:real;
begin
writeln ('введите стоимость покупки');
readln (a);
if (a>500)and(a<=1000) then b:=a/100*97 else
if a>1000 then b:=a/100*95;
writeln ('ответ', b);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 4.167 из 5


СДЕЛАЙТЕ РЕПОСТ