Напишите программу для вычисления стшимости покупки со скидкой

1

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

2013-11-27T07:50:18+04:00
Var zena:integer;
begin
readln(zena);
if (zena < 500) then writeln(zena*0,97);
if (zena > 500) and (zena < 1000) then writeln(zena*0,95);
end.