Ответы на вопрос:
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.
Популярно: Информатика
-
manjester103.08.2021 09:01
-
llVorobeyll10.03.2021 10:16
-
kirasanovnagmailcom14.11.2020 18:35
-
olgafedotova201712.02.2020 03:47
-
GuliaNias20.03.2023 15:06
-
Хэйллис09.04.2022 20:00
-
Раисат43217815.09.2022 15:25
-
VladDzundza07.06.2023 21:28
-
тикон312.05.2020 15:39
-
пистолетМакарова12.11.2021 16:48