Задание 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.
Задание2
program pr;
var s:string;
begin
s:='Касіу Ясь канюшыну';
delete (s,7,3);
insert ('Слово которое хотите вставить',s,7);
writeln (s);
readln;
end.
86 - 8 = 78 ребят любят компьютерные игры
78 - 62 = 16 человек любят только квесты
78 - 54 = 24 человек любит только симуляторы
54 - 16 = 38 человек любят и квесты и симуляторы.
ответ. 38 человек любят и квесты и симуляторы.
Круги Эйлера: нарисуй прямоугольник внутри него два пересекающих друг друга круга. Внутри прямоугольника поставь цифру 8 это те кто не любит комп. игры.
Внутри одного круга напиши С и 62, это те кто любит симуляторы их 62 чел.
Внутри другого круга напиши К и 54, это те кто любит квесты их 54 чел.
З.Ы. У меня просто не хочет прикреплять рисунок.
