Составьте программу, которая генерирует случайное четырёхзначное число от 1000 до 9999 (номер автобусного билета), выводит его на экран и определяет, является ли билет "счастливым" (сумма первых двух цифр равна сумме последних двух цифр). ​

если миша запретил маше закрашивать клеточку, двумя или более сторонами примыкающую к уже закрашенным клеточкам, значит маша может закрашивать клеточки в ряд. прямоугольник 4*100 можно представить как 4 ряда по сто клеточек, 2 ряда закрашены - ответ 200

2 способ

маша может закрасит клеточки в шахматном порядке

400 : 2 = 200

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

желтый знак - нехватка памяти

все остальное - размер  

1) найти убыль как к-во * 12%

2) найти прирост как к-во * 20%

3) к-во = к-во-убыль+прирост

выполнить 8 раз

var

x,a,b: real;

i: integer;

begin

x: =100000;

for i: =1 to 8 do

begin

a: =x*0.12;

b: =x*0.20;

x: =x+b-a;

end;

writeln(x);

end.