Предмет: Информатика,
автор: xmrskris
Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 6 или 11. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 1000. Введённые числа не превышают
30 000.
Программа должна вывести одно число: количество чисел, кратных 6 или 11.
Ответы
Автор ответа:
0
const
N = 30;
var
a:array [1..N] of longint;
I, j, k: longint;
begin
for i:=1 to N do
Readln(a[i]);
k:=0
for i:=0 to N do
begin
if (a[i]mod6=0) or (a[i]mod11=0) and (a[i]<>0) then
inc(k);
writeln(k)
N = 30;
var
a:array [1..N] of longint;
I, j, k: longint;
begin
for i:=1 to N do
Readln(a[i]);
k:=0
for i:=0 to N do
begin
if (a[i]mod6=0) or (a[i]mod11=0) and (a[i]<>0) then
inc(k);
writeln(k)
Интересные вопросы
Предмет: Психология,
автор: Lelf001
Предмет: Геометрия,
автор: vikaivankiv
Предмет: Литература,
автор: cnofix
Предмет: Математика,
автор: bravers342
Предмет: История,
автор: Аноним