Решаем задачи Абрамян на Паскале. For4

For4. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет.

Решение:

program For4;
var
  C:Real;
  i:Integer;

begin
  Write('Введите стоимость 1 кг конфет: ');
  Readln(C);
  Writeln('Введите стоимость конфет: ');
  For i:=1 to 10 do Writeln(i,'кг: ',i*C);
end.

program For4;

var

C:Real;

i:Integer;

begin

Write('Введите стоимость 1 кг конфет: ');

Readln(C);

Writeln('Введите стоимость конфет: ');

For i:=1 to 10 do Writeln(i,'кг: ',i*C);

end.

Другие задачи из раздела For можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. For4

Комментарии:

Добавить комментарий Отменить ответ