Проверь соединение с жестким диском , порядок загрузки в биосе.
62 в 2 системе=111110; в 5 системе=222; в 8 системе=76; в 16 системе=3E
101 в 2 системе=1111001; в 5 системе=401; в 8 системе=145; в 16 системе=65
229 в 2 системе=11100101; в 5 системе=1404; в 8 системе=345; в 16 системе=E5
program p
var
a,b,c,d : integer;
begin
readln(a),
readln(b),
readln(c),
readln(d),.
if (a<0) and (b/c=2) then witeln ((a+b+c+d)/4);
if (a*b*c*d>a+b+c+d) then begin witeln (a+b+c+d);witeln (a*b*c*d);end;
if (a*b*c*d>a+b+c+d)and((a<0) and (b/c=2)) then begin end else
begin
writeln(2*a) ;
writeln(2*b) ;
writeln(2*c) ;
writeln(2*d) ;
end;
end.
Набираешь полный флакон на 5 капель, переливаешь его в 7. Затем снова набираешь на 5 капель и опять сливаешь капли в 7. но на этот раз там уже было 5 капель. значит остается 3 капли в первом флаконе
//Pascal
var a, b:integer;
begin
readln(a,b);
if a>0 then writeln(a*b);
if (a<0) and (b<>0) then writeln(a/b)
else if (a<0) and (b=0) then writeln('Делить на 0 нехорошо!');
end.