Ответы
Ответ дал:
0
program p1;
var s:real;
begin
writeln('Введите сумму покупки: ');
read(s);
if s>1000 then
begin
s:=s-(s*0.1);
writeln('Вам предоставляется скидка 10%');
end;
writeln('Сумма покупки с учётом скидки ',s,' рублей');
end.
var s:real;
begin
writeln('Введите сумму покупки: ');
read(s);
if s>1000 then
begin
s:=s-(s*0.1);
writeln('Вам предоставляется скидка 10%');
end;
writeln('Сумма покупки с учётом скидки ',s,' рублей');
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад