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

извените за беспокойство но я уже сам разобрался с этой программой спасибо )
вот так она должна быть
var
M,i,N:integer;
begin
writeln(' Ââåäèòå N');
readln(N);
M:=0;
for i:=1 to N do
if sqr(i)+sqr(i)*i<= N then inc(M);
write(M);
readln;
end.
Женек вне форума   Ответить с цитированием
Ads

Яндекс

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