Автомат по­лу­ча­ет на вход трёхзначное де­ся­тич­ное число. по по­лу­чен­но­му числу стро­ит­ся новое де­ся­тич­ное число по сле­ду­ю­щим правилам. 1. вы­чис­ля­ют­ся два числа — квадрат первой цифры и сумма второй и тре­тьей цифр за­дан­но­го числа. 2. по­лу­чен­ные два числа за­пи­сы­ва­ют­ся друг за дру­гом в по­ряд­ке неубывания (без разделителей пример. ис­ход­ное число: 578. полученные числа: 25, 15. результат: 1525. определите, сколь­ко из ниже чисел не может по­лу­чить­ся в ре­зуль­та­те ра­бо­ты автомата. 981 160 116 11 1612 35 418 в от­ве­те за­пи­ши­те толь­ко ко­ли­че­ство чисел.

Var   x, a: real;   i: integer; begin   write('введите число ');   readln(a);   writeln('таблица деления числа ', a, ' на целые четные от 2 до 20 (с 2 знаками после запятой)');   i : = 2;   while i < = 20 do   begin       x : = a / i;       writeln(a, '/', i: 2, '=', x: 0: 2);       i : = i + 2;   end; end. тестовое решение: введите число 27 таблица деления числа 27 на целые четные от 2 до 20 (с 2 знаками после запятой) 27/ 2=13.50 27/ 4=6.75 27/ 6=4.50 27/ 8=3.38 27/10=2.70 27/12=2.25 27/14=1.93 27/16=1.69 27/18=1.50 27/20=1.35

1)  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 program program1; var s,subs: string; c: char; isonenumber: boolean; p: byte; n,err: integer; begin writeln('‚введите фразу'); readln(s); c: =s[1]; isonenumber: =false; p: =pos(' ',s); while p< > 0 do   begin   if p=1 then   begin   s: =copy(s,2,length(s));   p: =pos(' ',s);   continue;   end;   subs: =copy(s,1,p-1);   s: =copy(s,p+1,length(s));   p: =pos(' ',s);   val(subs,n,err);   if err< > 0 then continue;   if (n=0) or (n> 9) then continue;   isonenumber: =true;   break;   end; if isonenumber then writeln('‚ есть числа, сосотоящие из одной цифры') else writeln('‚нет чисел, состоящих из одной цифры'); end.