Нужна ваша . необходимо написать программу в pascalabc и лучше с объяснениями. сам не понимаю. дано натуральное число. верно ли, что в данном числе нет данной цифры а (цифру а вводить с клавиатуры)

1. pascalabc.net 3.2 begin   var s: =readlnstring('введите натуральное число: ');   var c: =readlnchar('введите цифру для поиска: ');   if pos(c,s)> 0 then writeln('такая цифра есть')   else writeln('такой цифры нет') end. 2. pascalabc.net любой версии, free pascal и т.д. на строках var   s: string;   c: char; begin   write('введите натуральное число: '); readln(s);   write('введите цифру для поиска: '); readln(c);   if pos(c,s)> 0 then writeln('такая цифра есть')   else writeln('такой цифры нет') end. 3. то же, но без строк, с циклом var   n: longint;   d: 0..9; begin   write('введите натуральное число: '); read(n);   write('введите цифру для поиска: '); read(d);   while n> 0 do begin       if n mod 10=d then begin           writeln('такая цифра есть');           exit           end;       n: =n div 10       end;   writeln('такой цифры нет') end.

//pascalabc.net 3.2 сборка 1318 var   n,a: integer;   b: boolean; begin b: =true;       //"флаг", указывающий на результат readln(a);     //вводим цифру readln(n);     //вводим число while n> 0 do           //пока число не равно 0  if n mod 10=a then   //mod 10 возвращает последнюю цифру числа    begin       b: =false;       //если эта цифра равна а, тогда "флаг" меняет своё значение       break;           //и выходим из цикла     end   else       n: =n div 10;     {иначе посредством div 10 убираем самый правый разряд. если левый аргумент меньше 10, он вернёт 0 и тем самым завершит цикл} if b=true then writeln('да') else writeln('нет'); {"флаг" остаётся true только если не встретилось совпадений в цикле} end.        пример ввода: 3 123 пример вывода: нет

2

6

8

4

7

що тут еще казаты