Заданное с клавиатуры n чисел. Подсчитать произведение этих чисел и количество чисел, которые кратны 5. Используемый цикл While.

Question

Информатика

Киря

20 сентября, 14:43

Заданное с клавиатуры n чисел. Подсчитать произведение этих чисел и количество чисел, которые кратны 5. Используемый цикл While.

+4

Ответы (1)

Знаете ответ на вопрос?

Нида · Answer 1

Program n1;

var n, a, k, i: integer;

p: real;

begin

write ('n=') ;

readln (n) ;

i:=0;

k:=0;

p:=1;

while (in) do

begin

write ('a[', i+1,']=') ;

readln (a) ;

p:=p*a;

if a mod 5=0 then k:=k+1;

i:=i+1;

end;

writeln ('p=', p) ;

writeln ('k=', k) ;

end.