Каждое утро черепашка выползает из своей норки, чтобы позавтракать, питается она одуванчиками. Сегодня, на восходе солнца, через время Т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.

Задание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 чел.

З.Ы. У меня просто не хочет прикреплять рисунок.