Вычислить сумму чётных чисел на отрезке от 10 до 30!Через цикл while

@Frost007 · Регистрация: 05.03.2012

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

@Ev[G]eN · 12.03.2012, 17:00

Pascal

var
  Summa, i: integer;
begin
  Summa:=0;
  i:=10;
  while i <= 30 do
  begin
    if i mod 2 = 0 then
      inc(Summa, i);
    inc(i);
  end;
  writeln('Сумма: ', Summa);
end.

@Frost007 · 12.03.2012, 17:11 **[ТС]**

Вот моё решение:

Pascal

program N1;
uses crt;
var k,s:integer;
begin
clrscr;
s:=0;
k:=0;
while k<=30 do begin
s:=s+k;
k:=k+2;
end;
writeln('summa chetnih chisel ot 10 do 30=',s);
readkey;
end.

@Ev[G]eN · 12.03.2012, 17:31

Сообщение от Frost007

k:=0;

Сообщение от Frost007

while k<=30 do begin

а вам нужно от 10 до 30, тогда k:=10;

@Frost007 · 12.03.2012, 17:51 **[ТС]**

Ev[G]eN, я пробовал на паскале проверял K:=0 и всё правильно проходит

@[WRG] · 12.03.2012, 18:10

если что то работает, то не обязательно работает правильно.
вам по условию сказано начать с 10, а вы начинаете с нуля

@RinaM · 12.03.2012, 19:53

[WRG], верно замечено.

Pascal

var k, sum: integer;
begin
sum:=0;
while (k>=10) and (k<=30) do
begin
if (k mod 2 = 0) then
sum:=sum+k;
k:=k+1;
end;
writeln(sum);
readln;
end.

Еще короче.

@Ev[G]eN · 12.03.2012, 19:55

Сообщение от RinaM

while (k>=10) and (k<=30) do

Сообщение от RinaM

k:=k+1;

это невозможно...

@RinaM · 12.03.2012, 19:57

Вероятно. Но прога была написана 7 лет назад. и она работает!

@Ev[G]eN · 12.03.2012, 19:58

Сообщение от RinaM

и она работает

ну как скажете

@Frost007 0 / 0 / 1 Регистрация: 05.03.2012 Сообщений: 28
		1
	Вычислить сумму чётных чисел на отрезке от 10 до 30!Через цикл while 12.03.2012, 16:23. Показов 25589. Ответов 9 Метки нет (Все метки) Вычислить сумму чётных чисел на отрезке от 10 до 30!Через цикл while 0

@Ev[G]eN Mobile Software Engineer 5381 / 1585 / 956 Регистрация: 23.01.2011 Сообщений: 3,214
	12.03.2012, 17:31	4
	Сообщение от Frost007 k:=0; Сообщение от Frost007 while k<=30 do begin а вам нужно от 10 до 30, тогда k:=10; 0

@Frost007 0 / 0 / 1 Регистрация: 05.03.2012 Сообщений: 28
	12.03.2012, 17:51 [ТС]	5
	Ev[G]eN, я пробовал на паскале проверял K:=0 и всё правильно проходит 0

@[WRG] 53 / 53 / 37 Регистрация: 20.11.2011 Сообщений: 243 Записей в блоге: 1
	12.03.2012, 18:10	6
	если что то работает, то не обязательно работает правильно. вам по условию сказано начать с 10, а вы начинаете с нуля 0

@Ev[G]eN Mobile Software Engineer 5381 / 1585 / 956 Регистрация: 23.01.2011 Сообщений: 3,214
	12.03.2012, 19:55	8
	Сообщение от RinaM while (k>=10) and (k<=30) do Сообщение от RinaM k:=k+1; это невозможно... 0

@RinaM 81 / 37 / 10 Регистрация: 21.11.2010 Сообщений: 177
	12.03.2012, 19:57	9
	Вероятно. Но прога была написана 7 лет назад. и она работает! 0

@Ev[G]eN Mobile Software Engineer 5381 / 1585 / 956 Регистрация: 23.01.2011 Сообщений: 3,214
	12.03.2012, 19:58	10
	Сообщение от RinaM и она работает ну как скажете 0