Найти сумму всех четных натуральных чисел от 1 до 100

@Supermannick · Регистрация: 03.11.2013

помогите, пожалуйста, с заданием: Найти сумму всех четных натуральных чисел от 1 до 100. в for, while, do while могу, в repeat не получается.

@FIL · 15.04.2014, 22:24

Давай в for, while - подправим.

@Supermannick · 15.04.2014, 22:51 **[ТС]**

FIL,

Delphi

var s,i:integer; 
s:=0; 
i:=2; 
while i<101 do 
begin 
if (i mod 2) =0 then s:=s+i; 
i:=i+1; 
end;

Добавлено через 6 минут
FIL, что-то нашёл я тут, вроде. только ошибки выдаёт

@FIL · 15.04.2014, 22:55

Delphi

repeat
if (i mod 2) =0 then s:=s+i;
i:=i+1;
until i > 100;

@droider · 15.04.2014, 22:58

или к такому виду

Delphi

var
i, s:integer;
begin
s :=0;
i :=1;
repeat
if not odd(i) then
s :=s+i;
inc(i);
until i>100;
Writeln(s);
end.

@Supermannick · 15.04.2014, 23:44 **[ТС]**

droider, почему такая ошибка?

@droider · 16.04.2014, 00:32

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

почему такая ошибка?

потому что переменная s имеет числовой тип и его нужно преобразовать в строковый, перед добавлением в Memo

Delphi

1	Memo1.Lines.Add(IntToStr(s));

@Supermannick 0 / 0 / 0 Регистрация: 03.11.2013 Сообщений: 69
		1
	Найти сумму всех четных натуральных чисел от 1 до 100 15.04.2014, 22:22. Показов 6059. Ответов 6 Метки нет (Все метки) помогите, пожалуйста, с заданием: Найти сумму всех четных натуральных чисел от 1 до 100. в for, while, do while могу, в repeat не получается. 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	15.04.2014, 22:24	2
	Давай в for, while - подправим. 0

@Supermannick 0 / 0 / 0 Регистрация: 03.11.2013 Сообщений: 69
	15.04.2014, 23:44 [ТС]	6
	droider, почему такая ошибка? Миниатюры 0

	16.04.2014, 00:32

Решение