1) Вывести на экран

числа кратные 16 от 31 до M (M>31) ;

2) Найти

сумму 5 натуральных чисел кратных 13;

3) Найти

произведение N натуральных чисел кратных 11;

4) Вывести

на экран семь первых чисел кратных 7.

Буду благодарен,

знаю задания легкие, но поздно узнал что надо было делать. (Все задачи надо сделать в Паскале)

1) Program NoName;

Var i, m : integer;

Begin

read (m) ;

if m>31 then begin

for i:=31 to m do

if (i mod 16) = 0 then writeln (i) ;

end;

end.

2) Program NoName;

Var i, n, x, c : integer;

Begin

c:=1;

x:=0;

i:=0;

while i<5 do begin

if (c mod 13) = 0 then

begin x:=x+c; i:=i+1;

end;

c:=c+1;

end;

write (x) ;

end.

3) Program NoName;

Var i, n, x, c : integer;

Begin

read (n) ;

c:=1; x:=1; i:=0;

while i
begin

if (c mod 11) = 0 then

begin x:=x*c;

i:=i+1;

end;

c:=c+1;

end;

write (x) ;

end.

4) Program NoName;

Var i, m, x : integer;

Begin

x:=0; i:=1;

while x<7 do begin

if (i mod 7) = 0 then

begin

writeln (i) ; x:=x+1;

end; i:=i+1;

end;

end.