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

Question

Информатика

Вахарловский

4 год назад

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

ОТВЕТЫ

Magdalena

Oct 24, 2020

uses crt;vari,n,k:integer;a:array[1..100] of integer;beginwriteln('введите числа последовательности. Окончанием ввода будет число 0');i:=0;n:=0;repeati:=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 dobeginwrite('a[',i,']=',a[i],' ');if ((a[i] mod 2)=0) and ((a[i] mod 7)=0) thenk:=k+1;end;writeln('кол-во целых чётных чисел кратных 7 - ',k);end.

756