Спаскаля решить : 1. ввести с клавиатуры символьную строку и заменить в ней все буквы "а" на "б" и все буквы "б" на "а" заглавные на заглавные и строчные на строчные буквы) пример: ааббаа, а после замены стало: ббаабб. 2.ввести с клавиатуры символьную строку и определить сколько в ней слов. пример: вася пошел найдено 3 слова. 3.ввести с клавиатуры в одну строку фамилию, имя и отчество, разделив их пробелом. вывести фамилию и инициалы. пример: пирожков петр васильевич, а стало : п.в . пирожков.

1. var s,s1: string; i: integer; begin readln(s); s1: =s; for i: =1 to length(s1) do begin if s1[i]='а' then s1[i]: ='б' else   if s1[i]='а' then s1[i]: ='б' else   if s1[i]='б' then s1[i]: ='а' else     if s1[i]='б' then s1[i]: ='а'; end; writeln(s1); end. 2. var s,s1: string; i,k: integer; begin readln(s); s1: =s; i: =1; k: =1; while pos(' ',s1)> 0 do begin delete(s1,1,pos(' ',s1)); k: =k+1; end; writeln(k); end. 3. var s,famil,s1,imya,otch: string; i: integer; begin readln(s); famil: =copy(s,1,pos(' ',s)-1); delete(s,1,pos(' ',s)); imya: =copy(s,1,1); delete(s,1,pos(' ',s)); otch: =copy(s,1,1); s1: =concat(imya,'.',' ',otch,'.',' ',famil); writeln(s1); end.

Если вам нужно пояснение к программе, пишите в сообщения

{тибетские монахи подсказали мне смысл данного , но они могли ошибаться, "астрал затуманен"} //pascal abc.net v3.1 сборка 1172 var   maxn,max,a,n: int64;   k,i: byte; begin   write('введите количество школ: ');   readln(k);   max: =-1;   for i: =1 to k do   begin;   read(n); readln(a);   if a> max then     begin     max: =a;     maxn: =n;     end;   end;   write('res=',maxn,' школа с ',max,' должниками'); end. пример ввода: 3 12 34554 21 34 335 8568568 пример вывода: res=335 школа с 8568568 должниками

Для решения подобных , нужно перевести данные цифры в маске и узле в двоичную с.с. и сделать поразрядную коньюнкцию(логическое умножение). 255(10) равно 111 111 11(2) значит, любое число при умножении на это, даст себя же, т.к. при умножении 1 на 0 будет 0, значит первые 2 цифры остануться теми же 224.23, а вот 240 и 251 нужно перевести в двоичнцю с.с. и посчитать. 240(10) это 11 110 000(2), а 251(10) равно 11 111 011, вместе они дадут 11 110 000(2), переводим это число в 10 с.с. это будет 240. при умножении на 0 будет 0,поэтому в конце 0 остаеться. в итоге у нас получилось: 224.23.240.0 ответ: dfbh