Question

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

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.