Question

напишите программу, которая в последовательности целых чисел определяет из колличество и сумму четных чисел. программа получает на ход целые числа, колличество введенных чисел неизвестно послкдовательность чисел заканчивается числом 0 признак окончания ввода не взолит в последовательность. колличество чисел не привышает 1000. введеные числа по модулю не привышают 30000. программа должна вывести два числа длину последовательности и сумму четных чисел.
введные данные выходные
4 3
60 64
15
0
​

Answer 1

program kol_sum_chet;

var

x,k,s:integer;

begin

k:=0;

s:=0;

repeat

read(x);

if x mod 2=0

then

begin

s:=s+x;

inc(k);

end;

until x=0;

write(k,' ',s)

end.