Вичислить сумму квадратов первых ста четных чисел

@marina_k · Регистрация: 11.10.2012

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

Вичеслить сумму квадратов первых ста четных чисел. на паскаль. заранее огромное спасибо

@Valery__ · 11.10.2012, 17:52

Pascal

Program suma;
var sum:integer;
    i:integer;
Begin
    i:=2;
    sum:=0;
    Repeat
      sum:= sum + Sqr(i);
      i:=i+2;      
    Until i>200;
    Write ('sum = ',sum)
End.

Можно с помощью odd().

@marina_k 0 / 0 / 0 Регистрация: 11.10.2012 Сообщений: 3
		1
	Вичислить сумму квадратов первых ста четных чисел 11.10.2012, 16:53. Показов 2229. Ответов 1 Метки нет (Все метки) Вичеслить сумму квадратов первых ста четных чисел. на паскаль. заранее огромное спасибо 0

	11.10.2012, 17:52

Вичислить сумму квадратов первых ста четных чисел

Решение