Последовательно вводится n-целых чисел. Найти сумму чётных чисел
Последовательно вводится n-целых чисел. Найти сумму чётных чисел
Гость
Ответ(ы) на вопрос:
Гостьvar x,n,i,s:integer;
begin
write('Сколько будет чисел: ');
readln(n);
writeln('Вводите числа по одному:');
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then s:=s+x;
end;
writeln('S=',s);
end.
Не нашли ответ?
Похожие вопросы