Составьте программу вычисления суммы нечетных чисел в диапазоне от 1 до 10
Составьте программу вычисления суммы нечетных чисел в диапазоне от 1 до 10
Гость
Ответ(ы) на вопрос:
ГостьС помощью оператора while:
var
i,sum:integer;
begin
sum:=0;
i:=1;
while i<=10 do
begin
sum:=sum+i;
i:=i+2;
end;
writeln ('Summa: ',sum);
end.
Пойдет?
uses crt;
var
i: byte;
s: word;
begin
i := 1;
s := 0;
while i <= 10 do
begin
if i mod 2 <> 0 then
s := s + i;
inc(i);
end;
writeln('Сумма нечётных чисел от 1 до 10: ', s);
readln;
end.
Не нашли ответ?
Похожие вопросы