Предмет: Информатика,
автор: asildar
задана линейная таблица состоящая из целых чисел. Определить есть ли в этой таблице хотя бы одно число кратное k
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Математика,
автор: kingworld564
Предмет: Английский язык,
автор: rufatrufat202
Предмет: Алгебра,
автор: gulimhanbahitova
Предмет: Обществознание,
автор: makova03
Предмет: Математика,
автор: galinagalina2