Задано 5 целых чисел. Найти сумму только
четных.​

Sargisooo Sargisooo    2   21.03.2020 02:17    0

Ответы
innocen innocen  12.10.2020 01:54

var

a, b, c, d, e : integer;

s : longint;

begin

readln(a, b, c, d, e);

s := 0;

if a mod 2 = 0 then s := s + a;

if b mod 2 = 0 then s := s + b;

if c mod 2 = 0 then s := s + c;

if d mod 2 = 0 then s := s + d;

if e mod 2 = 0 then s := s + e;

write(s)

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика