Показать сообщение отдельно
Старый 16.03.2013, 12:48   #4 (permalink)
Женек
Member
 
Регистрация: 16.03.2013
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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.
Женек вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070