операторы цикла

[димон4ик_]

Помогите пожалуйста написать программу не знаю с чего даже начать пожалуйста

[s-andriano]

Начать следует с того, что представить, что Вам нужно решить эту задачу вручную на листе бумаги.
Напишите, как бы Вы ее стали решать?

[димон4ик_]

Сообщение от s-andriano

Начать следует с того, что представить, что Вам нужно решить эту задачу вручную на листе бумаги.
Напишите, как бы Вы ее стали решать?

Проверьте пожалуйста правильность этой программы пожалуйста )

uses crt;
var n,m,s:integer;
begin
clrscr;
write('Введите натуральное n=');
readln(n);
m:=1;
s:=1;
while s+sqr(m+1)<n do
begin
m:=m+1;
s:=s+m*m
end;
writeln('m=',m,' s=',s);
readln
end.

[s-andriano]

Ну, вообще-то проверять - это обязанность исполнителя и того, кто будет принимать у него работу.
Надеюсь, что проверку для некоторых значений N Вы сделали сами.
Поэтому проверять код на компилируемость и правильность работы я не буду.

На глаз серьезных недостатков в коде я не вижу.
Мне, правда, непонятно, зачем Вы используете
uses crt;
и
clrscr;
Ну и немного странно выглядит, когда в два раза рядом вычисляете квадрат разными способами. Да и нужно ли два раза вычислять одно и то же - тоже под большим вопросом. Но это уже, скорее, вопрос оптимизации.

И еще, код, чтобы его проще было читать, принято оформлять соответствующими тегами.

[Stilet]

димон4ик_

Запусти прогу - какой результат выдает? Сравни его с подсчитанным на калькуляторе - что получится?