Вычислите сумму всех нечетных чисел из десяти вводимых.

В паскале.

Question

Информатика

Наталий

19 августа, 20:09

Вычислите сумму всех нечетных чисел из десяти вводимых.

В паскале.

+1

Ответы (2)

Знаете ответ?

Мавр · Answer 1

Program Summa;

Uses Crt;

var i, s, n:integer;

begin

clrscr;

write ('Введите 10 чисел: ') ;

s:=0;

for i:=1 to 10 do

begin

readln (n) ;

if (n mod 2) 0 then s:=s+n;

end;

writeln;

writeln ('Сумма всех нечётных чисел:', s) ;

readkey;

end.

Евстратий · Answer 2

var n, a, i, k:integer;

begin

read (n) ;

k:=0;

for i:=1 to n do begin read (a) ; if a mod 20 then k:=k+a;

end;

write (k) ;

end.

Вычислите сумму всех нечетных чисел из десяти вводимых.В паскале.

Вычислите сумму всех нечетных чисел из десяти вводимых.

В паскале.