Составить программу которая вычисляет произведение членов последовательности N натуральных чисел, кратных 5. Программа получает на вход целые числа, количество введеных чисел неизвестно, последовательность заканчивается числом N.

Question

Артём Булгаков

Информатика

17 ноября, 20:34

Составить программу которая вычисляет произведение членов последовательности N натуральных чисел, кратных 5. Программа получает на вход целые числа, количество введеных чисел неизвестно, последовательность заканчивается числом N.

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Елизавета Миронова · Answer 1

var n, a:integer; p:real; begin write ('n = '); readln (n); write ('a = '); readln (a); p:=1; while an do begin if a mod 5 = 0 then p:=p*a; write ('a = '); readln (a); end; writeln ('p = ', p); end.