Предмет: Информатика, автор: cleverova

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

Ответы

Автор ответа: fofgogjoj
0
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.
Автор ответа: fofgogjoj
0
находит сумму первых десяти нечетных чисел
Автор ответа: cleverova
0
Мы массив еще не прошли. А если без него.
Автор ответа: fofgogjoj
0
минуту
Автор ответа: fofgogjoj
0
Program fofgogjoj;
Var
i,s: integer;
Begin
s:=0;
for i:=1 to 19 do
begin
if i mod 2=1 then
s:=s+i;
end;
Writeln ('Сумма 10ти нечетных чисел равна:',s);
End.
Автор ответа: fofgogjoj
0
вот так без массива
Похожие вопросы
Предмет: Математика, автор: asabitova285