Напечатать таблицу стоимости 100, 200, 300,...., 2000г конфет ( стоимость 1 кг конфет вводится с клавиатуры) . Среда кумир, цикл для. помогите срочно надо...
Program serqaz123_sweets;
uses crt;
const
shag = 100;
max=2000;
var
i:integer;
price:real;
begin
write(Введите стоимость 1 кг конфет: ); readln(price);
writeln();
writeln(+--------------------------------------+);
writeln(| Таблица стоимости конфет |);
writeln(+--------------------------------------+);
writeln(| Вес | Стоимость |);
writeln(| (грамм) | (денег) |);
writeln(+--------------------------------------+);
for i:=1 to 20 do
writeln(| ,i*100:5, | ,(i/10)*price:11:2, | );
writeln(+--------------------------------------+);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
