Ответ: 19 клеток,
клетка финиша а1 не учитывается
program raf105;
var a,b,x:real;
i,c:integer;
begin
write('Ввод: ');
a:=1;
b:=9;
readln(c);
c:= c-1;
for i:=1 to c do
begin
a:= a*10+9;
if i<2
then b:= b*10+1
else b:= b*10+81;
end;
x:= b-a;
writeln('Вывод: ',x);
end.
<em>Язык программирования PascalABC</em>
Переведем числа в десятичную с. сч.:
Подставляем:
Раскрываем скобки:
Б) Утилита предназначена для выполнения небольших заданий на компьютере