Question

Паскаль. заранее спасибо​

Answer 1

Задание 1.

var price, i: integer;

begin

   write('Введите стоимость 1 кг картофеля: ');

   readln(price);

   for i := 1 to 10 do

       writeln('Стоимость ', i, ' кг картофеля: ', price * i);

end.

Задание 2.

var i: integer;

begin

   for i := 16 to 36 do

       writeln('Кв. корень ', i, ': ', Sqrt(i));

end.