Ответ: Паскаль 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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ: Паскаль 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.