Сделать ! напишите программу,которая в последовательности - вопрос №4015981 от Poznavatel01 28.08.2022 20:56

Question

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

Poznavatel01 · Answer

Program a1;var c,k,a: integer;begina:=1;while (a 0) and (c 2)  dobegin read(a);if (ABS(a) 30000) and (a 0)  thenif ((a mod 2) = 0) and ((a mod 3)=0) then inc(k);inc(c);end;writeln( kol = ,k);end...