Женек

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

Миниатюры

 

Vladimir_S

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

Женек

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

Женек

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

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.

Vladimir_S

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

Женек

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