Поделитесь своими знаниями, ответьте на вопрос:
Составить программу по информатике в 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[i]=c then writeln ('в строке найден заданный символ');
readln;
end.
б)
program pr;
var
s,n: string;
c: char;
i: integer;
begin
writeln('введите имя и фамилию в одной строке');
readln (s);
i: =1;
while s[i]< > ' ' 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[i]< > ' ' 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.
program pr;
var s: string;
begin
s: ='касіу ясь канюшыну';
delete (s,7,3);
insert ('слово которое хотите вставить',s,7);
writeln (s);
readln;
end.