Паскаль! Составить алгоритм для вычисления произведения Чисел: 5, 10, 15, ..., 55.

Question

Информатика

Викентия

24 июля, 12:06

Паскаль! Составить алгоритм для вычисления произведения Чисел: 5, 10, 15, ..., 55.

+4

Ответы (1)

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

Амалия · Answer 1

Program Lloyd;

var

i, a:integer;

begin

a:=1;

for i:=1 to 55 do begin

if (i mod 5) = 0 then

a:=a*i;

end;

writeln ('Произведение = ', a) ;

end.