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

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

program six;

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

Назад