Question

Паскаль
Вариант 1
1. Вывести на экран стоимость сыра весом 50, 100, 150, 200 …1000 гр. по цене 150 руб. за 1 кг.
2. с шагом 1

Answer 1

var

   a, i: integer;

   begin

   read (a)

   for i := 0 to 20 do

   {

   wrileln (a * 150 / 100);

   a := a + 50;

   }

end.

что то типо того