Цитата:
Сообщение от 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.