Сумма квадратов (Pascal)

[antonyolee]

Здравствуйте.
Буду благодарен, если сможете помоч с решением задачи и с ее блок-схемой.

Вычислить сумму квадратов натуральных чисел, кратных 3 (3,6,9...), в которую входят слагаемые, не большие 5000. Замечание: Провести решение двумя способами - использую цикл с предусловием WHILE_DO и цикл с постусловием REPEAT_UNTIL.

Еще раз заранее благодарю.

[ROMA2PVT]

Uses
   Crt;
var
  sum,a:integer;
begin
sum:=0;
a:=3;
while a<=5000 do
 begin
  a:=a+3;
  sum:=sum+(a*a);
 end;
writeln('Сумма квадратов натуральных чисел: ',sum);
readkey;
end.

[Grag]

Рома, не прокатит твоя программа из-за неправильно заданных типов данных.
Проанализируй сколько будет 5000 в квадрате и какой диапазон имеют примененные тобой типы данных.

[ROMA2PVT]

Рома, не прокатит твоя программа из-за неправильно заданных типов данных.
Проанализируй сколько будет 5000 в квадрате и какой диапазон имеют примененные тобой типы данных.

А какой тогда тип данных взять? Чтобы на будующее знать. Просто я не в TP делал а в паскале ABC.

[antonyolee]

Исправьте, что не так.

1 способ)
program lavr_lab10_1;
var a,n:real;
c,m:integer;
begin
c:=1;
n:=0;
while n<5000 do
begin
a:=3*c;
a:=power(a,3);
c:=c+1;
n:=n+a;
end;
writeln(n-a);
end.

Тут вроде все верно.

а вот тут не получается 2 способ)

Program lavr_lab10_2;
var a,n:real;
c,m:integer;
begin
c:=1;
n:=0;
repeat
a:=3*c;
a:=power(a,3);
c:=c+1;
n:=n+a;
until
n<=5000;
writeln(n-a);
end.

[ROMA2PVT]

А ты уверен что ответ будет 2700?Чёт меня терзают сомнения что сумма квадратов чисел кратных трём в диапазоне до 5000 будет равна этому числу.

[antonyolee]

Будь добр, помоги исправить.
Я без понятия что чему должно быть равно)