![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы
![]() |
Поиск в этой теме
![]() |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 29.06.2010
Сообщений: 2
|
![]()
ситуация такова:
нужно в самые кратчайшие сроки решить протецкую задачку. есть только в паскале, но мне нужен делфи. прошу стого не судить, тк в делфи совсем не ориентируюсь( вот сама задачка: дано натуральное число n. выяснить, входит ли цифра 3 в запись числа n^2. число вводится из программы( через диалоговый интерфейс) она же в паскале: function F(n:integer):boolean; var temp:integer; begin temp:=n; while temp <> 0 do begin if temp mod 10 = 3 then begin F:=true; exit end; temp:=temp div 10 end; F:=false end; var n:integer; begin ReadLn(n); if F(sqr(n)) then WriteLn('1') else WriteLn('0'); ReadLn end. нужно содержание файлика .dpr |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 01.09.2009
Сообщений: 197
|
![]()
За правильность не отвечаю, переделано из исходного кода выше.
Код:
Последний раз редактировалось ZaRDaK; 29.06.2010 в 23:50. |
![]() |
![]() |
![]() |
#3 |
Новичок
Джуниор
Регистрация: 29.06.2010
Сообщений: 2
|
![]()
благодарю!
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как устранить проблему-любая цифра делится на 100 автоматически | valentin13 | Microsoft Office Excel | 1 | 04.03.2010 14:18 |
Как выяснить каким образом обрабатывается бинарник | yarilo | Помощь студентам | 1 | 22.04.2009 09:57 |
запись числа римскими символами (Си++) | kOvr1K | Помощь студентам | 3 | 18.10.2008 23:19 |
Как запросить логин с которым пользователь входит в комп? | Dorvir | Microsoft Office Excel | 2 | 18.06.2008 13:09 |
наименьшая цифра числа в delphi | SALOmandra | Помощь студентам | 2 | 22.04.2008 15:57 |