Question

1. Напишите программу, которая в последовательности натуральных чисел определяет количество всех нечётных чисел, кратных 7. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество всех чётных чисел, кратных 7.

Answer 1

uses crt; var i,n,k:integer; a:array[1..100] of integer; begin writeln('введите числа последовательности. Окончанием ввода будет число 0'); i:=0; n:=0; repeat i:=i+1; n:=n+1; read(a[i]); write(' '); until (a[i]=0) or (i>1000); writeln; k:=0; writeln('Последовательность:'); for i:=1 to n-1 do begin write('a[',i,']=',a[i],' '); if ((a[i] mod 2)=0) and ((a[i] mod 7)=0) then k:=k+1; end; writeln('кол-во целых чётных чисел кратных 7 - ',k); end.