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

Question

Информатика

Ермий

30 апреля, 00:36

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

+1

Ответы (1)

Знаете ответ на вопрос?

Олюха · Answer 1

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<=80 do

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.