Напишите программу, которая в последовательности - вопрос №15385209 от Аnимeшka 14.05.2022 21:04

Question

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

Аnимeшka · Answer

Program n1;

var sum,a,k: integer;

begin

sum:=0;

k:=0;

readln(a);

while a<>0 do

begin

sum:=sum+a;

if (a mod 2=0) and (a mod 5=0) then k:=k+1;

readln(a);

end;

writeln(sum);

writeln(k);

end.

Объяснение: