Задачи на ! 1) Требуется выделить в строке-предложении s все слова, разделенные символами-разделителями «_.,;:\n\t!?» и напечатать все слова, содержащие буквы и цифры.

2) Дан текст в начале которого имеются пробелы и в котором имеются цифры. Найти порядковый номер максимальной цифры, начиная счет с первого символа, не являющегося пробелом. Если максимальных цифр несколько, то должен быть найден номер первой из них.

!

program simple_num;

var n:integer;

function simple(num:integer):boolean;

var count, i:integer;

   key:boolean;

begin

   count := 0;

   i := 1;

   repeat

       if num mod i = 0 then

           inc(count);

       inc(i);

   until (i > num);

   if count > 2 then

       key := false

   else key := true;

   simple := key;

end;

begin

   writeln('Введите натуральное число больше 1');

   readln(n);

   if n > 1 then

       if simple(n) then

           writeln('Число ',n, ' простое')

       else writeln('Число ',n, ' непростое')

   else writeln('введено число менее 1');

end.

program z1;

var a,b,c:real;

begin

writeln('Введите a');

readln(a);

writeln('Введите b');

readln(b);

writeln('Введите c');

readln(c);

if (a>b) and (a>c) then writeln('a - наибольшее число') else

if (b>a) and (b>c) then writeln('b - наибольшее число') else

writeln('c - наибольшее число');

if (a<b) and (a<c) then writeln ('a-наименьшее число') else

if (b<a) and (b<c) then writeln ('b-наименьшее число') else

writeln ('c-наименьшее число');

  if ((a>b) and (a < c)) or ((a < b) and (a > c)) then

writeln('a-среднее число')

else

if ((b > a) and (b < c)) or ((b < a) and (b > c)) then

writeln('b-среднее число')    

else

writeln('c-среднее число');

end.