Операторы цикла на Паскале

[Женек1]

Операторы цикла на Паскале

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

 

[Vladimir_S]

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

Операторы Repeat..Until и While..Do к Вашим услугам. Разберитесь, как они работают, и тогда задачка покажется Вам просто смешной.

 

[Женек1]

Спасибо за помощь

 

[Женек1]

Операторы Repeat..Until и While..Do к Вашим услугам. Разберитесь, как они работают, и тогда задачка покажется Вам просто смешной.

НЕ могли ли бы вы проверить правильно ли я написал эту программу

uses crt;
var n,m,s:integer;
begin
clrscr;
write('Введите натуральное n=');
readln;
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.

 

[Vladimir_S]

НЕ могли ли бы вы проверить правильно ли я написал эту программу

Да вроде правильно. Ошибок не вижу. Ну вот и славно. А то - "не знаю, с чего начать...". Успехов!

 

[Женек1]

Спасибо большое за помощь)