Pascal.

Составить программу

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

Question

Сантина

13 сентября, 12:53

+5

Ответы (1)

Знаете ответ?

Грандт · Answer 1

var n, a, z:integer;

begin

write ('n = ') ;

read (n) ;

z:=1;

for a:=1 to n do

begin

if (a mod 11 = 0)

then z:=z*a;

end;

writeln (z) ;

end.

Pascal.Составить программуНайти произведение N первых натуральных чисел кратных 11