Паскаль, найти сумму квадратов черных чисел натурального ряда до 100

Question

Информатика

Юша

28 апреля, 11:15

Паскаль, найти сумму квадратов черных чисел натурального ряда до 100

+3

Ответы (1)

Знаете ответ на вопрос?

Анастасей · Answer 1

Var i, sum: integer;

begin

sum : = 0;

for i : = 1 to 50 do

{answer too big = > - 24908}

begin

sum : = sum + i * i * 4

end;

writeln ('Sum = ', sum) ;

readln (i) {programm don't stop and so can read answer}

end.