|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.04.2010, 20:11 | #1 |
Пользователь
Регистрация: 02.04.2010
Сообщений: 40
|
Дано натуральное число. Верно ли, что в этом числе нет цифры А. А задается с клавиатуры.
Помогите пожалуйста!!! Вообще не могу понять как сделать, в инете нашла такую задачу, но это в паскале, а для делфи не могу сделать заранее большое спасибо.
uses CRT; VAR Num: Longint; A, code: Integer; Contains: Boolean; Ch: Char; S : String; BEGIN Write('Введите целое число: '); ReadLn(Num); Write('Введите цифру: '); repeat ch := ReadKey; until (ch >= '0') and (ch <= '9'); VAL(ch, A, code); WriteLn(A); {Первый способ через преобразование числа в строку} Str(Num, S); WriteLn('1) Верно ли, что цифры ',A,' нет в числе ',Num,': ', POS(ch, S) = 0); {Второй способ через анализ цифр с помощью операции вычисления остатка от деления MOD} contains := FALSE; Write('2) Верно ли, что цифры ',A,' нет в числе ',Num,': '); while Num <> 0 do begin if (Num mod 10) = A then begin contains:= TRUE; Break {Немедленный выход из цикла WHILE} end; Num := Num div 10; end; WriteLn(NOT contains); END. |
02.04.2010, 20:17 | #2 |
Форумчанин
Регистрация: 16.02.2010
Сообщений: 316
|
готов помочь! icq: 553-566-179! недорого
|
02.04.2010, 20:39 | #3 |
Пользователь
Регистрация: 02.04.2010
Сообщений: 40
|
меня нет в аське, и это необходимо сейчас
|
02.04.2010, 20:44 | #4 |
Форумчанин
Регистрация: 16.02.2010
Сообщений: 316
|
нужно с формами? или консольное приложение?
|
02.04.2010, 21:15 | #5 |
Пользователь
Регистрация: 02.04.2010
Сообщений: 40
|
Мне нужен листинг программы!
|
02.04.2010, 21:20 | #6 |
Форумчанин
Регистрация: 16.02.2010
Сообщений: 316
|
пожалуйста!
delphi - консоль Код:
Последний раз редактировалось Google2010; 02.04.2010 в 21:37. |
02.04.2010, 21:26 | #7 |
Пользователь
Регистрация: 02.04.2010
Сообщений: 40
|
но ведь это же паскаль, а мне необходима программа для делфи. это у меня есть
|
02.04.2010, 21:33 | #8 | |
Форумчанин
Регистрация: 16.02.2010
Сообщений: 316
|
Цитата:
создаете Console application после Код:
и между Код:
Код:
Код:
Последний раз редактировалось Google2010; 02.04.2010 в 21:39. |
|
02.04.2010, 22:21 | #9 |
Форумчанин
Регистрация: 19.02.2009
Сообщений: 622
|
Код: P.rar
3.jpg 1.jpg 2.jpg Код:
Жми на весы!!!
Последний раз редактировалось Chudo4258; 02.04.2010 в 22:24. |
03.04.2010, 16:06 | #10 |
Пользователь
Регистрация: 02.04.2010
Сообщений: 40
|
спасибо огромное
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача на Pascal. Дано натуральное число n вычислить y=2*4*6...(2n) | Xe0n | Помощь студентам | 14 | 15.03.2011 21:24 |
Вычислить выражение, если дано натуральное число | elemigrante | Помощь студентам | 2 | 26.02.2010 14:15 |
Задача: Дано натуральное число n. Вычислить выражение ... | NoSiK | Помощь студентам | 26 | 21.11.2009 14:46 |
Дано натуральное число | RAVEN23 | Помощь студентам | 5 | 05.06.2009 15:23 |
дано натуральное число.(паскаль) | ex-hack | Помощь студентам | 1 | 05.06.2009 05:36 |