Информатика, опубликовано 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на