Var a,b,x:real; begin writeln('Введите значение a'); readln(a); writeln('Введите значение b'); readln(b); x:=((-1)*b)/a; if (a=0) and (b=0)then writeln('х-любое число') else if (a=0) and (b<>0) then writeln('Нет корней') else writeln('x=',x); end.
Если при сложении с единицей в некоторой системе счисления из двухзначного числа получается трехзначное, то двухзначное число было максимально возможным двухзначным числом, записанным в этой системе и обе его цифры были на единицу меньше основания системы счисления. Таким образом, можно утверждать, что заданные числа это 33₄, 66₇, 88₉ Число 100 в системе счисления по оcнованию n равно n², т.е. для указанных чисел это будут значения 4²=16, 7²=49 и 9²=81. Остается вычесть единицу. Соответственно, в десятичной системе 33₄=15, 66₇=48, 88₉=80
Если при сложении с единицей в некоторой системе счисления из двухзначного числа получается трехзначное, то двухзначное число было максимально возможным двухзначным числом, записанным в этой системе и обе его цифры были на единицу меньше основания системы счисления.Таким образом, можно утверждать, что заданные числа это 33₄, 66₇, 88₉Число 100 в системе счисления по оcнованию n равно n², т.е. для указанных чисел это будут значения 4²=16, 7²=49 и 9²=81. Остается вычесть единицу.Соответственно, в десятичной системе 33₄=15, 66₇=48, 88₉=80
begin
writeln('Введите значение a');
readln(a);
writeln('Введите значение b');
readln(b);
x:=((-1)*b)/a;
if (a=0) and (b=0)then writeln('х-любое число')
else if (a=0) and (b<>0) then writeln('Нет корней')
else writeln('x=',x);
end.