Question

Составить алгоритм, который определяет сумму четных чисел из трех введенных a,b,c. если таких нет, то вывести сообщение об этом. (можно с объяснением )

Answer 1

Var a,b,c,s:integer;//объявляем переменные
begin s:=0;//инициализируем s 
readln(a,b,c);//вводим a,b,c 
if a mod 2=0 then s:=s+a//если а делится на 2 без остатка то прибавляем а
 else if b mod 2=0 then s:=s+b//то же с b   
  else if c mod 2=0 then begin s:=s+c;//то же с c  
    writeln(s);//вывод s
    end
   else writeln('Нет');//если нет чётных выводим сообщение
end.    

Answer 2

Var a,b,c,d:integer;
begin
writeln('Введите числа');
readln(a,b,c);
if (a mod 2=0) then d:=a;
if (b mod 2=0) then d:=d+b;
if (c mod 2=0) then d:=d+c;
if d<>0 then writeln('Сумма чётных чисел равняется ',d)
else writeln('Нет чётных чисел');
end.