Паскаль, найти сумму квадратов черных чисел натурального ряда до 100
Паскаль, найти сумму квадратов черных чисел натурального ряда до 100
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы