Question

Напишите программу, вычисляющую сумму 3-х введенных с клавиатуры нечетных чисел.​

Answer 1

Ответ:

var a,b,c,s:integer;

begin

s:= 0;

readln(a);

readln(b);

readln(c);

if a mod 2 = 1 then begin

 s:= s + a;

 end;

if b mod 2 = 1 then begin

 s:= s + b;

end;

if c mod 2 = 1 then begin

 s:= s + c;

 end;

writeln('Сумма нечетных чисел = ', s)

end.