Процедуры и функции обработки строковых данных в Паскаль

Процедуры и функции обработки строковых данных в Паскаль (урок 3)Жевтило Ирина Аскольдовнаучитель информатики высшей категории Задача 1Определить разрядность числа, рассмотрев два варианта:Работа со строковыми даннымиРабота с числовыми данными ПрограммаProgram prim1;Var s: string;x, k: integer;BeginWriteln('введите число');Readln(x);Str( x, s);k:=length(s);Writeln('в числе ',k,' цифр');End.Program prim1_Ch;Var a, x, k : integer;BeginWriteln('введите число');Readln (a);X:=a; k:=0;While x>0 do beginK:=k+1;X:= x div 10;End;Writeln (a, ' - ', k ,' значное число');End. Задача 2Составить программу перевода десятичного числа в двоичное Var s1,s2: string; k,x,a:integer;begin write('a='); readln(a); s1:= ''; x:=a; While x>0 do begin k:= x mod 2; str (k,s2); s1:=s2+s1; X:= x div 2; End; writeln(a, s1:10);end. Задача 3Составить программу перевода десятичного числа в n систему счисления (n<=9) Var s1,s2: string; n,k,x,a: integer;begin write('Введите десятичное число'); readln(a); write('Введите основание системы счисления для перевода'); readln(n); s1:= ''; x:=a; While x>0 do begin k:= x mod n; str (k,s2); s1:=s2+s1; X:= x div n; End; writeln(a, s1:20);end. Задача 4Составить программу определения возраста человека по дате рождения и текущему году program string8;var s1,s2:string; n,g, let:integer;begin s1:='23.02.1995'; s2:=copy(s1,7,4); val(s2,g,n); let:=2015-g; writeln(let); end. Задача 5. Переменные A и B содержат строки цифр. Найти сумму соответствующих чисел. Program prim5; Var A, B: string; S, x, y, n, k: integer; Begin Writeln('введите первое число'); Readln(A); Writeln('введите второе число'); Readln(B); Val(A, x, n); Val(B, y, k); S:=x+y; Writeln('сумма чисел равна ',S);End.