Вопросы с подвохом только по теме "информатика". они нужны для одной из категорий "своя игра" желательно 4 вопроса с ответами

1) begin   var s1: =readlnstring('текст: ');   writeln('k = ',s1.where(c-> pos(c,'01')> 0).count);   var s2: =s1.select(c-> c='0'? 'a': c).select(c-> c='1'? 'm': c);   s2.println; end. пример: текст: текст с 1 и 0: 110+101=1011 k = 12 текст с m и a: mma+mam=mamm 2) var s1,s2: string; i,k: integer; begin writeln('введите текст: '); readln(s1); k: =0; s2: =''; for i: =1 to length(s1) do   if s1[i]='0'   then begin s2: =s2+'a'; k: =k+1; end   else if s1[i]='1' then begin s2: =s2+'m'; k: =k+1; end else s2: =s2+s1[i]; writeln(s2); writeln('k = ',k); end. пример: введите текст: текст с 1 и 0: 110+101=1011 текст с m и a: mma+mam=mamm k = 12

Var    z,k,n,sum: integer;     s,a: string;     i: byte; begin   write ('введите число: ');   readln (z);   str(z,s);   k: =length(s);   sum: =0;   for i: =1 to k do begin     a: =s[i];     n: =strtoint(a);     sum: =sum+n;   end;     writeln ('количество цифр в числе: ',k);   writeln ('сумма цифр числа: ',sum);   writeln ('первая цифра числа: ',s[1]);   writeln ('последняя цифра числа: ',s[k]); end. : введите число: 567854 количество цифр в числе: 6 сумма цифр числа: 35 первая цифра числа: 5 последняя цифра числа: 4