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

Question

Информатика

Феля

19 мая, 00:32

Найти сумму всех нечётных от 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.