Олимпиада Инф. паскаль

[garena95]

Реябат!
Помогите решить 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 (вычитание)
Задача - по заданной последовательности из трех чисел определить следующее четвертое, число в ней. Для образования последовательности может использоваться только одна из четырех арифметичееских операций - сложение, вычитание, умножение, деление!


Помогите пожалуйста буду признателен

[garena95]

2 решено, 1 помоггите пжалуйста
Про Палиндром

[Чиполлино]

Решили еще что нибудь?

[garena95]

Задача 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.

[garena95]

Помогите теперь первую пожалуйста про Палиндромы!

[Чиполлино]

Давай вместе решать, пиши в личку