12. Переменной d будет присвоено значение b.
//Язык. Паскаля. Язык Паскаля, Карл!
//Pascal ABC.NET v3.1 сборка 1172
Var
a,b,c:integer;
d:boolean;
begin
d:=false;
readln(a);
readln(b);
repeat
c:=a mod 10;
a:=a div 10;
if c=b then d:=true;
until (c=b) or (a=0);
if d=true then writeln('Есть') else writeln('Нет');
end.
<span>Пример ввода:
34457
8
Пример вывода:
Нет
</span>
var
n, i: Integer;
s: string;
begin
Write ('Введите натуральное число, больше 9: ');
ReadLn (n);
if n <= 9 then begin
Writeln ('Ошибка ввода!');
Exit;
end;
s := IntToStr (n);
if Length (s) mod 2 <> 0 then begin // проверка на четность
i := Length (s) div 2 + 1; // вычисление позиции центральной цифры
Delete (s, i, 1); // удаление центральной цифры
Writeln ('Результат: ' + s);
end else
Writeln ('Число цифр в числе четно.');
end;