ответ: Паскаль ABS.Net
Program Z1;
var x,y,r:real;
BEGIN
write('Задайте два числа x,y: ');
read(x,y);
r:=sqrt(abs(x-y));
write('ответ: ',r:3:1);
END.
Объяснение:
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите два числа:');
Write('Результат ', Sqrt(Abs(a - b)):0:1)
end.
ответ: Паскаль ABS.Net
Program Z1;
var x,y,r:real;
BEGIN
write('Задайте два числа x,y: ');
read(x,y);
r:=sqrt(abs(x-y));
write('ответ: ',r:3:1);
END.
Объяснение:
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите два числа:');
Write('Результат ', Sqrt(Abs(a - b)):0:1)
end.