Регистрация
Søphia
01.10.2022 08:37
Информатика
Есть ответ 👍

Напишите программу, которая считает сумму четных чисел среди заданных целых чисел a, b, c (числа a, b, c вводятся с клавиатуры).

290
367
Посмотреть ответы 2

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

МарияПремудрая1
МарияПремудрая1
4,5(86 оценок)
ответ:

var

 a, b, c, s: integer;

begin

   readln(a, b, c);

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

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

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

   writeln(s);

end.

Женя111сивар
Женя111сивар
4,4(63 оценок)

ответ:

begin

count: =0;

for i: =1 to 99 do

if i mod 5 =0 do

count: =count+1;

write(count);

end.

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