Сорри но мы его ещё не писали
Я знаю только ответ на номер 2
"Столько же детей" подразумеваются те же пять мальчиков.
Так что девочек в автобусе мальчиков и мальчиков в автобусе девочек равное количество, поскольку ни одних, ни других, нету в "чужих" автобусах!
Может быть, я не понятно объяснил?
Var
k, n: integer;
begin
k := 0;
n := 3;
repeat
k := k + 1;
n := n + 7;
until n > 366;
writeln(k);
end.
Ответ 52
Var S,K,A:integer;
Begin
S:=0;
K:=0;
A:=100;
Repeat
S:=S+A;
K:=K+1;
A:=A+10;
Until A>500;
WriteLn('SR = ',K*S);
End.