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

Question

Информатика

Денис

11 июля, 08:03

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

+5

Ответы (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.