Ответы
Ответ дал:
0
uses crt;
var summa:real;
begin clrscr;
write('Введите сумму покупки');
readln(summa);
if summa>1000 then
begin
writeln('Вам предоставляется скидка 10%');
writeln('Сумма покупки с учетом скидки: ',summa*0.9:0:2,' гривен.');
end
else writeln('Скидка не предоставляется'); write('Для завершения нажмите Enter');
readln
end.
var summa:real;
begin clrscr;
write('Введите сумму покупки');
readln(summa);
if summa>1000 then
begin
writeln('Вам предоставляется скидка 10%');
writeln('Сумма покупки с учетом скидки: ',summa*0.9:0:2,' гривен.');
end
else writeln('Скидка не предоставляется'); write('Для завершения нажмите Enter');
readln
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад