Предмет: Информатика,
автор: cleverova
Написать программу в Pascal. Найти сумму 10 нечетных чисел.
Ответы
Автор ответа:
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.
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.
Автор ответа:
0
находит сумму первых десяти нечетных чисел
Автор ответа:
0
Мы массив еще не прошли. А если без него.
Автор ответа:
0
минуту
Автор ответа:
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.
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.
Автор ответа:
0
вот так без массива
Похожие вопросы
Предмет: Другие предметы,
автор: ldrakoniha
Предмет: История,
автор: sergejakovlev150390
Предмет: Математика,
автор: asabitova285
Предмет: Алгебра,
автор: TheKhamova