Тема
:
Проверьте правильность программы на Паскале
Показать сообщение отдельно
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