|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.05.2016, 11:09 | #11 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
netpolice, и в Delphi и с текстовым файлом...
Но я бы задействовал целочисленное сравнение: Код:
|
05.05.2016, 11:25 | #12 |
Форумчанин
Регистрация: 14.02.2013
Сообщений: 222
|
Ну деФочка просила в текстовом...
а if (a>0) and (sqr(trunc(sqrt(a)))=a) then Inc(Cnt); даже наверное быстрее будет... |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pascal (работа с текстовыми файлами) | giv93 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 14.02.2012 21:12 |
Работа с текстовыми файлами Pascal | decantnik | Помощь студентам | 2 | 05.03.2011 16:49 |
Работа с текстовыми файлами.Pascal | valis | Помощь студентам | 5 | 29.03.2010 17:59 |
Работа с текстовыми файлами в ЯП Turbo Pascal | JayDe23 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 04.06.2009 19:50 |
Pascal работа с текстовыми файлами | Andrey89 | Помощь студентам | 3 | 25.12.2007 19:21 |