Напиши программу на паскале. В последовательности из N натуральных чисел определить имеются ли числа кратные 4.

Question

Информатика

Феодулия

6 сентября, 11:30

Напиши программу на паскале. В последовательности из N натуральных чисел определить имеются ли числа кратные 4.

+2

Ответы (1)

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

Стеша · Answer 1

Var

n, i, k: integer;

f: boolean;

begin

readln (n) ;

f : = false;

for i : = 1 to n do

begin

k : = Random (100) ;

f : = f or (k mod 4 = 0) ;

end;

writeln (f) ;

end.