Решение задач по теме "For - цикл с параметром в Pascal"

Решение задачи №4

program four;

var i: integer;
    Price: real;
begin
     write('Цена 1 кг = ');
     readln(Price);
     for i:=1 to 10 do
         writeln('Стоимость ',i,'кг = ',i*Price);
end.

Назад