|
|
|
Регистрация Восстановить пароль |
|||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
|
Опции темы | Поиск в этой теме |
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 |
