Данные записанные в одну строку таблицы это - основы.
Ответ:6257143
ftp://presentation.edu/cat.pptx
Var
a:integer;
begin
readln(a);
If (a<10000) and (a>=0) then
If (a>999) then
If ((a div 1000)=(a mod 10)) and ((a div 10 mod 10)=(a div 100 mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>99) and (a<1000) then
If ((a div 100)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>9) and (a<100) then
If ((a div 10)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
writeln('1')
else
writeln('Неправльное число');
end.
Большое немного решение, может можно и поменьше, но так точно правильно
Поля «год издания» и «рейтинг» необходимо превратить в
числа. Простейший способ для этого: вставить в пустую ячейку 1/ копировать ее/
выделить столбей цифр/специальная вставка/умножить.
<span>Если строк много, то лучше сверху оставить несколько штук и
снизу, остальные скрыть. Когда необходимо можно отобразить. Сами формулы видны
в строке формул.</span>
Следуя закону Мура об удвоение вычислительной мощности процессора за год, у нас получить четверть 100:4=25 лет и получаем что мощность должна увеличиться в раз.