Помогите составить программу по информатике в Pascal ABC. Задание 1. С клавиатуры одной строковой вводят имя и фамилию. Составьте программу, которая: а)определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя. Задание 2. Составьте программу, которая в строке "Касіу Ясь канюшыну" заменяет имя "Ясь" на...
Задание 1 a) program pr; var s:string; c:char; i:integer; begin writeln('Введите имя и фамилию в одной строке'); readln (s); writeln('Введите заданный символ'); readln (c); for i:=1 to length(s) do if s=c then writeln ('В строке найден заданный символ'); readln; end. б) program pr; var s,n:string; c:char; i:integer; begin writeln('Введите имя и фамилию в одной строке'); readln (s); i:=1; while s<>' ' do i:=i+1; n:=copy(s,1,i-1); writeln(n); readln; end. в) program pr; var s,n,f:string; c:char; i:integer; begin writeln('Введите имя и фамилию в одной строке'); readln (s); i:=1; while s<>' ' do i:=i+1; n:=copy(s,1,i-1); f:=copy(s,i+1,length(s)-i+1); writeln(n); writeln(f); readln; end. Задание2 program pr; var s:string; begin s:='Касіу Ясь канюшыну'; delete (s,7,3); insert ('Слово которое хотите вставить',s,7); writeln (s); readln; end.
