Напиши программу на паскале. В последовательности из N натуральных чисел определить имеются ли числа кратные 4.
Напиши программу на паскале. В последовательности из N натуральных чисел определить имеются ли числа кратные 4.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы