|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.10.2012, 07:56 | #1 |
Новичок
Джуниор
Регистрация: 17.10.2012
Сообщений: 4
|
Олимпиада Инф. паскаль
Реябат!
Помогите решить 2 задачи на паскале абс Задача 1. "Производство палиндромов" Сделать палиндром трех чисел составить на паскале АБС 4422 2442 1770 717 1071 171 Задача - получить программу которая для заданного числа вычисляла бы минимальный палиндром, больший или равный этому числу. В данном случае это числа которые я написал Задача 2. "Следующее число" 4 4 16 256 (умножение на 4) 2 4 6 8 (сложение по 2) 50 25 5 5 (деление на 2) -10 5 10 25 (вычитание) Задача - по заданной последовательности из трех чисел определить следующее четвертое, число в ней. Для образования последовательности может использоваться только одна из четырех арифметичееских операций - сложение, вычитание, умножение, деление! Помогите пожалуйста буду признателен |
17.10.2012, 08:27 | #2 |
Новичок
Джуниор
Регистрация: 17.10.2012
Сообщений: 4
|
2 решено, 1 помоггите пжалуйста
Про Палиндром |
17.10.2012, 08:48 | #3 |
Пользователь
Регистрация: 23.06.2011
Сообщений: 31
|
Решили еще что нибудь?
|
17.10.2012, 08:53 | #4 |
Новичок
Джуниор
Регистрация: 17.10.2012
Сообщений: 4
|
Задача 2.
program Evdokimov; var a,b,c,d:integer; begin writeln ('3 числа через пробел '); readln(a,b,c); d:=0; if(b mod a=0) and (c mod b=0) then begin d:=c*(c div b); end; if(a mod b=0) and (b mod c=0) then begin d:=c div (b div c); end; if a-b=b-c then begin d:=c-(a-b); end; if (a mod b =0) and (b mod c =0) then begin d:=c div (b div c); end; writeln(d); end. |
17.10.2012, 08:54 | #5 |
Новичок
Джуниор
Регистрация: 17.10.2012
Сообщений: 4
|
Помогите теперь первую пожалуйста про Палиндромы!
|
17.10.2012, 09:14 | #6 |
Пользователь
Регистрация: 23.06.2011
Сообщений: 31
|
Давай вместе решать, пиши в личку
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
вывод инф о файле в Messagebox | riko782 | Visual C++ | 4 | 18.04.2012 18:14 |
Вывод инф.о аудиокарте в DOC | bigboss007 | Общие вопросы C/C++ | 0 | 19.11.2010 15:50 |
Ввод и вывод инф. в файл | loader159 | Общие вопросы C/C++ | 8 | 25.05.2010 22:25 |
Модификация инф.из таблиц БД | Katushka_88_88 | Microsoft Office Access | 1 | 15.02.2010 17:00 |