Конечно, в таком стиле не пишут, но это специально для Вас, чтобы было максимально похоже на "алгоритм".<u>
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:integer;
var y:real;
Read(x);
if x>0
then y:=Sqrt(x)
else y:=Abs(x);
Writeln(y)
end.
Переведем все числа в десятичную сс 1000p=p^3
120p=p^2+2p 110p=p^2+p получаем уравнение p^3=p^2+2p+p^2+p
p^3-p^2-2p-p^2-p =0 реши уравнение и найди p
32кб = 262144бит
8^x=262144
x=6
Не може
то му що якщо в 1 буде одне то в 2 буде 7 .
7+1 = 8
а повинно 7
Из целых чисел такая пара только одна - 2 и 2.
А если программу писать, то так
var a, b: integer
BEGIN
for a=1 to 100 do
begin
for b=1 to 100 do
begin
if a+b=a*b then write (a, b);
end;
end;
END.
Если можно брать нецелые числа, то для любого х второе число равно x/(x-1)
Например, 3 и 3/2. 3 + 3/2 = 3*3/2 = 9/2