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

Question

Информатика

Мартимьян

12 ноября, 05:51

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

+5

Ответы (1)

Знаете ответ?

Игорек · 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.