Найти сумму квадратов всех чисел от 0 до 50

@Pendor · Регистрация: 29.10.2012

Помогите, пожалуйста! В понедельник контрольная!

Найти сумму квадратов всех чисел от 0 до 50.
Нарисовать графическую схему.

Заранее спасибо!

@Ce7eH_111 · 01.12.2012, 20:36

Схему не знаю как но прогу напишу:

Pascal

1	for i:=0 to 50 do s:=s+sqr(i);

Хех прога

@druidich · 01.12.2012, 20:38

Pendor,

Pascal

var i,n,summ:integer;
begin
readln(n);
for i:=1 to n do begin
summ:=summ+i*i;
end; 
writeln('summa = ',summ);
end.

@Ce7eH_111 · 01.12.2012, 20:47

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

Pendor,

Pascal

var i,n,summ:integer;
begin
readln(n);
for i:=1 to n do begin
summ:=summ+i*i;
end; 
writeln('summa = ',summ);
end.

[удалено]

Комментарий модератора

Не злоупотребляйте CAPS LOCK-ом

P.S. А для подношения в квадрат спец функция есть

@druidich · 01.12.2012, 20:57

Ce7eH_111,

Не по теме:

опоздал на 2 мин,пока вбивал код.

@Pendor 0 / 0 / 3 Регистрация: 29.10.2012 Сообщений: 99
		1
	Найти сумму квадратов всех чисел от 0 до 50 01.12.2012, 19:52. Показов 816. Ответов 4 Метки нет (Все метки) Помогите, пожалуйста! В понедельник контрольная! Найти сумму квадратов всех чисел от 0 до 50. Нарисовать графическую схему. Заранее спасибо! 0

@druidich 30 / 30 / 12 Регистрация: 21.05.2012 Сообщений: 448
	01.12.2012, 20:57	5
	Ce7eH_111, Не по теме: опоздал на 2 мин,пока вбивал код. 0