Написать программу в Pascal. Найти сумму 10 нечетных чисел.
Answers & Comments
fofgogjoj
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
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.
Answers & Comments
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
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.