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

1

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

2013-06-19T01:22:56+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.


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.