Pascal.

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

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

Question

Сирила

5 марта, 04:23

+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