Kiit
4 год назад
Составьте программу, находящую сумму первых 10 натуральных нечетных чисел.
ОТВЕТЫ
Schuler Kerstin
Oct 24, 2020
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.
47
Смежные вопросы: