Найти сумму нечётных чисел из отрезка 1;3;...9.

@pascall · Регистрация: 09.11.2014

Студворк — интернет-сервис помощи студентам

Найти сумму нечётных чисел из отрезка 1;3;...9.
На ест.языке
I=1
S=0
пока I<9 повторять
S=S+I
I=I+2
КЦ
Вывести S

@Collide · 22.11.2011, 22:34

Pascal

var i,s:longint;
begin
  i:=1;
  s:=0;
  while i<9 do
  begin
    s:=s+i;
    i:=i+2;
  end;
  writeln(s);
  readln; 
end.

Добавлено через 12 секунд
Вот программа которая делает все что нужно, но не от 1 до 9 а от 1 до N (n вводиться с клавиатуры)

Pascal

var i,s,n:longint;
begin
  readln(n);
  i:=1;
  s:=0;
  while i<n do
  begin
    s:=s+i;
    i:=i+2;
  end;
  writeln(s);
  readln;
end.

@BakhtiyarZ · 23.11.2011, 15:06

Pascal

var
                  n,i:integer;
               begin
                  for i:=1 to 9 do
                  if (i mod 2)>0 then
                  n:=n+i;
                writeln(n);
                readln;
                end.

@pascall 0 / 0 / 0 Регистрация: 09.11.2014 Сообщений: 4
		1
	Найти сумму нечётных чисел из отрезка 1;3;...9. 22.11.2011, 22:13. Показов 1750. Ответов 2 Метки нет (Все метки) Найти сумму нечётных чисел из отрезка 1;3;...9. На ест.языке I=1 S=0 пока I<9 повторять S=S+I I=I+2 КЦ Вывести S 0

Опции темы

Найти сумму нечётных чисел из отрезка 1;3;...9.

Решение