Информатика, опубликовано 2018-08-22 22:04:10 by Гость

Найти сумму всех нечётных от 50 до 80, используя все три вида циклов.

Ответ оставил Гость

Var i,s : Integer;
Begin
s:=0;
For i:=50 to 80 do If Odd(i) then s:=s+i;
Writeln(s);

s:=0;
i:=50;
While i Begin
    If Odd(i) then s:=s+i;
    Inc(i);
end;
Writeln(s);

s:=0;
i:=50;
Repeat
    If Odd(i) then s:=s+i;
    Inc(i);
Until i>80;
Writeln(s);

end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.