Как в паскале написать более чего-то пример: если покупатель покупает товар 1000 и более то скидка 10% как это записать на пачкале

Котоман228 Котоман228    2   30.09.2019 17:01    0

Ответы
Oleg009988 Oleg009988  09.10.2020 05:53

var x,y:real;

begin

write('cuma=');

readln(x);

if x>=1000 then

begin

y:= (x/100)*10;

x:=x-y;

end;

writeln('skidka=',y:0:0);

writeln('cuma=',x:0:0);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика