Найти сумму чисел натурального сюда от a до b используя цикл с предусловием

@Kartas · Регистрация: 25.11.2010

Найти сумму чисел натурального сюда от a до b используя цикл с предусловием.

@Даня98 · 09.01.2011, 19:47

Можно так:

Pascal

var a,b,kol,i: longint;
begin
readln (a,b);
if a<=b then
for i:= a to b do
inc (kol,i)
else
for i:= a downto b do
inc (kol,i);
writeln (kol);
end.

А можно и так:

Pascal

var a,b,kol,i,q: longint;
begin
readln (a,b);
if a>b then
begin
q:= b;
b:= a;
a:= q;
end;
for i:= a to b do
inc (kol,i);
writeln (kol);
end.

@Kartas 0 / 0 / 0 Регистрация: 25.11.2010 Сообщений: 16
		1
	Найти сумму чисел натурального сюда от a до b используя цикл с предусловием 09.01.2011, 19:39. Показов 985. Ответов 1 Метки нет (Все метки) Найти сумму чисел натурального сюда от a до b используя цикл с предусловием. 0

	09.01.2011, 19:47

Решение