1. дано предложение. подсчитать число пробелов стоящих на нечетных местах, и заменить такие пробелы на символ «*». 2. дано слово, состоящее из количества букв кратного четырем. поменять в нем буквы следующим образом: первую с четвертой, вторую с третьей, пятую с восьмой, шестую с седьмой и т.д. например, из слова «карандаш» должны получить «аракшадн». язык pascal abc

{дано предложение. подсчитать число пробелов, стоящих на нечетных местах, и заменить такие пробелы на символ «*» } var t,s: string; n,k,i: integer; begin   writeln ('введите предложение: ');   readln (t);   n: =length(t);     s: ='*';     k: =0;   for i: =1 to n do begin;         if (t[i]=' ') and (i mod 2 =1)         then begin           k: =k+1;           delete(t,i,1);           insert(s,t,i);         end           end;   writeln (t);   writeln ('нечетных пробелов: ',k) end. жил да*был*черный кот за*углом. нечетных пробелов: 3 { дано слово, состоящее из количества букв кратного четырем. поменять в нем буквы следующим образом: первую с четвертой,  вторую с третьей, пятую с восьмой, шестую с седьмой и т.д.  например, из слова «карандаш» должны получить «аракшадн». } const k=4; var    a,a1,a2: string;   n,i: integer; begin   writeln ('введите слово: ');   readln (a);   n: =length(a) div k;   for i: =1 to n do begin             a1: =leftstr(a,k);       delete(a,1,k);       a1: =reversestring(a1);       a2: =a2+a1;           end;     writeln (a2);   end. карандашкарандаш аракшаднаракшадн

Решение в фото с подробным разбором