Вводится цифра а. определить, присутствует ли хотя бы одна такая цифра в числе. на pascal.

1. короткое решение для числа произвольной длины (на символьной строке) var   s: string;   c: char; begin   write('введите натуральное число: ');   readln(s);   write('введите искомую цифру: ');   readln(c);   if pos(c,s)> 0 then       writeln('такая цифра в числе есть')   else       writeln('такой цифры в числе нет') end. тестовое решение введите натуральное число: 43543232 введите искомую цифру: 4 такая цифра в числе есть 2. более традиционное решение с целочисленными переменными var   s,c: integer;   brk: boolean; begin   write('введите натуральное число: ');   read(s);   write('введите искомую цифру: ');   read(c);   brk: =false;   repeat       if s mod 10=c then brk: =true;       s: =s div 10   until brk or (s=0);   if brk then       writeln('такая цифра в числе есть')   else       writeln('такой цифры в числе нет') end. тестовое решение введите натуральное число: 43543232 введите искомую цифру: 6 такой цифры в числе нет

Number: =  number * (-1);