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

Question

Информатика

Евдоксия

14 октября, 03:50

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

+5

Ответы (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.