Анатолий
7 год назад
Составить программу для нахождения суммы всех нечетных целых чисел от 11 до 83
ОТВЕТЫ
Akinfiy
Jul 13, 2019
Var i,n: integer;
Begin
n:=0;
for i:= 11 to 83 do
if i mod 2=0 then n:=n
else
begin
n:=n+i;
WriteLn(i=, i);
end;
Write (sum=,n);
end.
Begin
n:=0;
for i:= 11 to 83 do
if i mod 2=0 then n:=n
else
begin
n:=n+i;
WriteLn(i=, i);
end;
Write (sum=,n);
end.
6
Смежные вопросы:
