Вариант d, кажется
Очень плохо видно
примерно 45 минут. Сначало 2 брата садятся в лодку и переплывают на другой берег, один брат остаётся на берегу, другой возращается к отцу и матери. Потом в лодку садится отец, переплывает и отдаёт её сыну, тот переплывает к матери и брату. Два брата садятся в лодку и переплывают реку, один брат остаётся с отцом, а другой плывёт к матери. Переплыв реку он даёт лодку матери. Она переплывает реку и даёт лодку сыну, тот плывёт за братом и они в двоём переплывают реку на лодке.
Один байт = один символ
N символов = N байт
Вторая:
Var
x:real;
Begin
Read(x);
if x<=0 then write('y = 0')
else if x<= 1 then write('y = ',x*x-x)
else write('y = ',x*x - sin(Pi*x*x -1))
End.
Третья:
Var
S1,S2:real;
Begin
Write('Площадь круга = ');Read(S1);
Write('Площадь квадрата = ');Read(S2);
S1:=sqrt(S1/Pi);
S2:=sqrt(S2);
if S1<=S2/2 then write('уместится')
else write('не уместится');
End.
В результате выполнения этой программы будет напечатан 0
Если трассировать программу по шагам то мы увидим что s меняется в цикле вот так
s1=-4
s2=12
s3=-24
s4=24
Начиная с 5 шага получаем (5-5)*s т.е 0 и далее чтобы мы на 0 не умножали так и будет 0