Question

Задана линейная таблица состоящая из целых чисел. Определить есть ли в этой таблице хотя бы одно число кратное k

Answer 1

Program z;
   const n=10;
   var i,k:integer;
        a:array[1..n] of integer;
begin
    writeln('введите k');
    readln(k);  
    i:=1;
    while (i<=n) and (a[i] mod k<>0) do i:=i+1;
     if i<=n then writeln ('Число, кратное, ',k,', есть')
     else ('Числа, кратного  ',k,', нет');
     readln
end.