Question

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

Answer 1

Ответ:

var a:real;

begin

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

begin

readln(a);

if (a>=200) then

a:=a-(a/10)

else  

a:=a;

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

end;

end.