Составьте программу вычисления суммы нечетных чисел в диапазоне от 1 до 10

Question

Составьте программу вычисления суммы нечетных чисел в диапазоне от 1 до 10

Comments

На каком языке программирования?

---

paskal ABC

---

Если есть и другое решения, то пожалуйста напишите!

---

Написал (:

Answer 1

С помощью оператора while:
var  
    i,sum:integer;
  begin  
    sum:=0;  
     i:=1; 
     while i<=10 do    <br>      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<br>  begin
    if i mod 2 <> 0 then
      s := s + i;
    inc(i);
  end;
  writeln('Сумма  нечётных чисел от 1 до 10: ', s);
  readln;
 
end.