Составьте программу, которая : в строке "я учусь в школе" заменяет слово "в школе" на " в 10-м классе".

var  s: string;

begin  s: = 'я учусь в школе';   //присваиваем начальное значение строковой переменной  writeln(s);   //печатаем начальное значение  delete(s, 11, 5);   {удаляем из строки s, начиная с 11 позиции 5 символов (т.е. удаляем слово школа)}  insert('10-м классе', s, 11);   {вставляем строку '10-м классе' в строку s, начиная с 11 позиции}  writeln(s);   //печатаем получившуюся строкуend.

   

program 1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

//pascalabc.net//версия 3.3, сборка 1634 (14.02.2018) 1) begin   var a: =readstring('введите слово-> ').tolower;   println(a=reversestring(a)? 'перевертыш': 'не перевертыш'); end. пример(1): введите слово-> комок перевертыш  пример(2): введите слово-> револьвер не перевертыш  2) begin    var a: =readinteger('число-> ');   range(1,a).where(t-> a mod t=0).println; end. пример: число-> 100 1 2 4 5 10 20 25 50 100 3) begin    for var i: =2 to 10000 do   begin     var a: =range(1,i-1).where(t-> i mod t=0).sum;     if a=i then write(i,' ');   end; end. ответ: 6 28 496 8128 

Var a, b: integer; begin       readln(a);       if (a = 1) then write(', уважаемая ');       if (a = 2) then write(', уважаемый ');       if ((b > 25) and (a = 1)) then writeln('');       if ((b < = 25) and (a = 1)) then writeln('леди');       if ((b > 25) and (a = 2)) then writeln('сэр');       if ((b < = 25) and (a = 2)) then writeln('господин'); end. слова только поменяйте, что : )