|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.06.2011, 23:47 | #1 |
Новичок
Джуниор
Регистрация: 07.06.2011
Сообщений: 5
|
Интересная задача
Написать программу на паскале, запрашивающую с клавиатуры два целых числа a и b и определяющую, есть ли в сумме этих чисел идущие подряд одинаковые цифры. Например, для a=100 и b=10 "Есть" , а для a=111 и b=10 "Нет".
|
07.06.2011, 23:50 | #2 |
Сливочное масло
Участник клуба
Регистрация: 01.01.2011
Сообщений: 1,149
|
Ниочень интересная
Сливочное масло Valio - компиляция как по маслу
|
07.06.2011, 23:55 | #3 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Неинтересная. Так что покажите ваши наработки, расскажите, что не получается или огласите сумму и способы получения вознаграждения за решение.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
07.06.2011, 23:59 | #4 |
Новичок
Джуниор
Регистрация: 07.06.2011
Сообщений: 5
|
|
07.06.2011, 23:59 | #5 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
вебмани или ЯД.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
08.06.2011, 00:01 | #6 |
Новичок
Джуниор
Регистрация: 07.06.2011
Сообщений: 5
|
|
08.06.2011, 00:05 | #7 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
м...100р. думаю хватит.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
08.06.2011, 00:53 | #8 |
Новичок
Джуниор
Регистрация: 07.06.2011
Сообщений: 5
|
Program chisla;
Var a,b,s,ost: Word; e: Boolean; Begin Write('a=');Readln(a); Write('b=');Readln(b); s:=a+b; e:=False; while (s>0) do begin ost:=s mod 10; { Остаток от деления } s:=s div 10; if (s mod 10=ost) then e:=True; end; if e then Writeln('Есть') else Writeln('Нет'); End. |
08.06.2011, 01:12 | #9 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Я бы добавил
Код:
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Интересная задача | rick1177 | Microsoft Office Excel | 13 | 18.05.2011 22:00 |
интересная задача | Sagara2_kis7 | Microsoft Office Excel | 1 | 28.02.2011 20:17 |
интересная задача | Irisha_17_85 | Помощь студентам | 2 | 26.10.2009 19:52 |
Интересная задача | terminadoor | Помощь студентам | 1 | 06.02.2009 20:00 |