Составить программу для нахождения суммы всех нечетных целых чисел от 11 до 83
Составить программу для нахождения суммы всех нечетных целых чисел от 11 до 83
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы