Написать программу в Pascal. Найти сумму 10 нечетных чисел.

Question

Информатика

Варламий

15 декабря, 05:38

Написать программу в Pascal. Найти сумму 10 нечетных чисел.

+2

Ответы (1)

Знаете ответ на вопрос?

Ильич · Answer 1

Program fofgogjoj;

Var a: array [1 ... 100] of integer;

i, n, s: integer;

Begin

s:=0;

n:=19;

for i:=1 to n do

begin

a[i]:=i;

if i mod 2=1 then s:=s+a[i];

end;

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

End.