Строковые и символьные данные (урок 2)

Процедуры и функции обработки строковых данных в Паскаль (урок 2)Жевтило Ирина Аскольдовнаучитель информатики высшей категории ЗадачиСтроковые и символьные данные Задача 1Вывести таблицу ASCII для:Цифр (48);Букв прописных латинских (65)Букв строчных латинских (97)Букв прописных русских (192)Букв строчных русских (224) Program simb;var s: char; i: integer;beginfor i:=48 to 57 do begins:=chr(i);writeln (i:5,s:5);endend. 0 1 2…57 9
Задача 2Удвоить каждый символ (повторить каждый символ два раза) в введенной строке Program D5; Var S,a:string; i:integer; Begin Writeln('Введите текст '); Readln(a); s:=''; For i:=1 to length(a) do S:=s+a[i]+a[i]; Writeln(a);Writeln(s);End. Задача 3Составить новые слова из слова информатика Program D3; Var S,a:string; Begin a:='информатика'; S:=copy (a,3,5); Writeln(a);Writeln(s);S:=copy (a,8,3);Writeln(s);S:=copy (a,3,6);Writeln(s);End.форматикформат

Задача 4Является ли слово перевертышем (палиндромом)? Program perevert; Var S : String; D, i : Integer; Flag : Boolean;BEGIN Write('Введите слово : '); ReadLn(S); D:= Length(S);{Сравниваются пары букв: первая буква с последней, }{вторая буква с предпоследней и т.д. } i:=1; Flag := TRUE; While (i <= D/2) and Flag do {цикл до первой несовпавшей пары букв } begin Flag := (S[i]=S[D-i+1]); i := i+1 end; WriteLn; Write( 'О т в е т : слово ', S); If Flag then WriteLn(' - перевертыш. ') else WriteLn (' - не перевертыш'); END.