Номер 4
program Other;
var
a,b: integer;
begin
a:=5;
b:=0;
if a = 1 then
{Next action...}
else
begin
b:=b+a;
a:=a-1;
end;
end.
Там должна быть поговорка "За добро добром и платять". А по вашим координатам (<span>(2,2) (5,1) (3,1) (12,1) (10,3) (12,1) (1,2) (2,1) (1,3) (4,2) (11,1) (4,2) (12,3))</span> получается "ром и платять".
Program zadacha;
Var t, v1, t1, v2, t2, v: real;
begin ;
Writeln ('введите значения v1, t1, v2, t2');
Readln (v1, t1, v2, t2);
t := (v1*t1+v2*t2)/(v1+v2);
Writeln ('T смеси = ', t);
<span>end.</span>
Пусть х - искомое основание системы счисления
5х+3х+3=х²+х+3
х²-7х=0
х(х-7)=0
х=0 или х=7
основание системы счисления не может быть равным 0, следовательно х= 7
101₇ = 49+1=50 лет
50₇=35 дочерей
33₇ = 21+3=24 сына
113₇=49+7+3=59 детей