Регистрация
Дианка20043005
04.03.2021 23:42
Информатика
Есть ответ 👍

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

252
359
Посмотреть ответы 2

Ответы на вопрос:

Yaroslava0111
Yaroslava0111
4,5(62 оценок)

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.

torimuse
torimuse
4,5(49 оценок)
Вроде так: var b, c: integer; begin   writeln('введите ваш возраст');   readln(b);     if b < = 0 then writeln('вам 0 лет')         else begin           c : = b mod 100;           if (c > = 10) and (c < = 20) then writeln('вам ', b, ' лет')           else               case (b mod 10) of                 1: writeln('вам ', b, ' год');                 2..4: writeln('вам ', b, ' года');                 5..9, 0: writeln('вам ', b, ' лет')                 end;     end;   writeln('для выхода нажмите < enter> ');   readln; end .

Популярно: Информатика