Найти сумму только четных чисел среди 10 введённых с клавиатуры
Найти сумму только четных чисел среди 10 введённых с клавиатуры
Гость
Ответ(ы) на вопрос:
ГостьProgram prog;
Uses crt;
var i,s,a: integer;
begin
s:=0;
for i:=1 to 10 do
begin
write('NUM',i,' = ');
readln(a);
if ((a mod 2)=0) then s:=s+a;
end;
writeln;
writeln('Sum = ', s);
End.
Не нашли ответ?
Похожие вопросы