Напишите программу, которая в последовательности целых - вопрос №7626895 от 1980а1980 29.05.2020 07:35

Question

Информатика: Напишите программу, которая в последовательности целых чисел определяет количество четных чисел, кратных 3. программа получает на вход целые числа. количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введенные числа по модулю не превышают 30000. программа должна вывести одно число: количество четных чисел, кратных 3.

1980а1980 · Answer

Const N=1000;var i, k, count: integer;A: array[1..N] of integer;beginwriteln ( vvedite chisla );for i:=1 to N do begink:=k+1;readln(A[k]);if A[k]=0 thenbreakend;for i:=1 to K-1 doif A[k] mod 3 =0 thencount:=count+1;writeln( кол-во чисел, кратных трем: , count);end....