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

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

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

@Даня98 · 09.01.2011, 20:15

Pascal

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

Если сумма будет большая (больше типа longint), то используйте int64 (если вы во free pascal), или real, только во выводе надо дописать такое:

Pascal

1	writeln (kol:0:0);

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

Опции темы

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

Решение