Составьте программу по информатике в Pascal ABC.
Задание 1. С клавиатуры одной строкой вводят имя и фамилию. Составьте программу, которая: а) определяет, есть ли во введённой строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя.
Задание 2. Составьте программу, которая в строке «Касіу Ясь канюшыну» заменяет имя «Ясь» на «Янка».
Задание 3. Составьте программу, которая в строке «реки горы и болота»: а) удаляет слово «горы»; б) заменяет слово «болота» на «озера».

Задание 1

var s, name, fam: string;
var ch: char;
var p: integer;
begin
writeln('Введите имя и фамилию:');
readln(s);
writeln('Введите символ:');
readln(ch);

if Pos(ch, s) > 0 then
writeln('Символ есть в строке')
else
writeln('Символа нет в строке');

p := Pos(' ', s);
name := Copy(s, 1, p - 1);
fam := Copy(s, p + 1, Length(s) - p);

writeln('Имя: ', name);
writeln(fam, ' ', name);
end.

Задание 2

var s: string;
begin
s := 'Касіу Ясь канюшыну';
s := StringReplace(s, 'Ясь', 'Янка');
writeln(s);
end.

Задание 3

var s: string;
begin
s := 'реки горы и болота';
s := StringReplace(s, 'горы ', '');
writeln(s);

s := StringReplace(s, 'болота', 'озера');
writeln(s);
end.

0 0 Пожаловаться