1.Напишите программу, печатающую все целые числа от 10 до 100.

Var I:integer

Begin

For I;=100 to 999 do//100 и 999 на свои значения

Begin

if l mod 47=43 then WriteLn(l)

End

End

var i,s: integer;

begin

  for i: = 100 to 200 do

      if i mod 17=0 then s: =s+i;

  writeln(s);

end.

наливаем  воду в сосуд для 5 и переливаем в сосуд из 3-х литров в сосуде их 5-ти остаёться 2,переливаем в ведро,повторяем тоже самое ещё образом получаем 4 литра))