Напечатать таблицу стоимости 100, 200, 300,...., 2000г конфет ( стоимость 1 кг конфет...

Question

Напечатать таблицу стоимости 100, 200, 300,...., 2000г конфет ( стоимость 1 кг конфет вводится с клавиатуры) . Среда кумир, цикл для. помогите срочно надо...

Answer 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.