1) Вывести на экранчисла кратные 16 от 31 до M

Question

1) Вывести на экранчисла кратные 16 от 31 до M (M>31); 2) Найти сумму 5 натуральных чисел кратных 13; 3) Найти произведение N натуральных чисел кратных 11; 4) Вывести на экран семь первых чисел кратных 7. Буду благодарен, знаю задания легкие, но поздно узнал что надо было делать. (Все задачи надо сделать в Паскале)

Uchasnik · Accepted Answer

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<n do 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; Beginx: =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.

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: