1) program ab;vars:string;i,k:integer;begins:='мама';for I:=1 to length(s) do begin k:=pos('м',s); if k<> 0 then begin delete(s,k,1); insert('п',s,k);end; end; writeln(s); end.
2 )program ab;
vars:string;i,k,n,j:integer;beginreadln(s);n:=0;k:= length(s) ;for i:= 1 to (k div 2) do
if s[i]<>s[k-i+1] thenn:=1; if n=0 then Writeln('Перевёртыш') else Writeln('Не первёртыш'); readln(j); end.
Не будут. Потому что РИСОВАНИЕ в библиотех графики Паскаля.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var s1:=ReadlnString('Первая строка:').ToHashSet;
var s2:=ReadlnString('Вторая строка:').ToHashSet;
(s1-s2).Println('');
end.
<u><em>Тестовое решение:</em></u>
Первая строка: 12345 - вышел Зайчик погулять!
Вторая строка: 34 - ноги шире!
125вылЗайчкпуять
Репрезентации а лишнее записование