Паскаль:Написать программу, которая в случае если товар стоит 200 евро или больше, то даёт скидку 10 %

stertumasova29

22.02.2023

var a:real;

begin

writeln ('Введите цену товара:');

begin

readln(a);

if (a>=200) then

a:=a-(a/10)

else

a:=a;

writeln('С учётом всех скидок товар стоит',' ',a,' ', 'евро');

end;

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Паскаль:Написать программу, которая в случае если товар стоит 200 евро или больше, то даёт скидку 10 %

▲