Задача 1: Предыдущий палиндром Вам даны пять чисел:
12345
98765
220011
900000
1000000
Для каждого из этих чисел найдите максимальное целое число, которое было бы меньше данного, и запись этого числа была бы
палиндромом, то есть читалась бы одинаково как слева направо, так и справа налево. Например, палиндромами являются такие числа, как
232, 8118,621126.
В ответе нужно записать пять целых чисел, записанных в отдельных строках. Порядок записи чисел в ответе менять нельзя. Если Вы не
можете найти ответ для какого-то из данных чисел, вместо этого ответа запишите любое целое число.
Сдать решение​

caps lock,shift

2^i = 24

i = 5

ответ. 5 лампочек.

random это  функция  возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:

a: = random(101)-50;       {числа от -50 до 50}

b: = random(101)-200;     {от -100 до 100}

а теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!

program sfetafor1; uses graphabc; beginsetwindowsize(640,480); clearwindow(clwhite); setpencolor(clblack); setpenwidth(3); rectangle(200,200,300,400); floodfill(250,300,clltgray); circle(250,230,25); circle(250,290,25); circle(250,350,25); floodfill(250,235,clred); floodfill(250,285,clyellow); floodfill(250,355,clgreen); line(250,200,250,150); line(250,150,100,150); setfontsize(14); setfontcolor(clred); textout(100,125,'красный свет-дороги нет'); end.