program CalculateSquareRootDifference; var num1, num2, squareNum1, sqrtNum2, difference: real; begin writeln′Введитепервоечисло:′'Введите первое число:'′Введитепервоечисло:′; readlnnum1num1num1; writeln′Введитевтороечисло:′'Введите второе число:'′Введитевтороечисло:′; readlnnum2num2num2; squareNum1 := sqrnum1num1num1; sqrtNum2 := sqrtnum2num2num2; difference := squareNum1 - sqrtNum2; writeln′Квадратпервогочисла:′,squareNum1:0:2'Квадрат первого числа: ', squareNum1:0:2′Квадратпервогочисла:′,squareNum1:0:2; writeln′Кореньвторогочисла:′,sqrtNum2:0:2'Корень второго числа: ', sqrtNum2:0:2′Кореньвторогочисла:′,sqrtNum2:0:2; writeln′Разностьквадратаикорняизчисел:′,difference:0:2'Разность квадрата и корня из чисел: ', difference:0:2′Разностьквадратаикорняизчисел:′,difference:0:2; end.
Пользователь должен ввести два числа с клавиатуры, после чего программа вычислит квадрат первого числа, корень второго числа и разность между квадратом первого числа и корнем второго числа.
Пример программы на Pascal:
program CalculateSquareRootDifference;var
num1, num2, squareNum1, sqrtNum2, difference: real;
begin
writeln′Введитепервоечисло:′'Введите первое число:'′Введитепервоечисло:′;
readlnnum1num1num1;
writeln′Введитевтороечисло:′'Введите второе число:'′Введитевтороечисло:′;
readlnnum2num2num2;
squareNum1 := sqrnum1num1num1;
sqrtNum2 := sqrtnum2num2num2;
difference := squareNum1 - sqrtNum2;
writeln′Квадратпервогочисла:′,squareNum1:0:2'Квадрат первого числа: ', squareNum1:0:2′Квадратпервогочисла:′,squareNum1:0:2;
writeln′Кореньвторогочисла:′,sqrtNum2:0:2'Корень второго числа: ', sqrtNum2:0:2′Кореньвторогочисла:′,sqrtNum2:0:2;
writeln′Разностьквадратаикорняизчисел:′,difference:0:2'Разность квадрата и корня из чисел: ', difference:0:2′Разностьквадратаикорняизчисел:′,difference:0:2;
end.
Пользователь должен ввести два числа с клавиатуры, после чего программа вычислит квадрат первого числа, корень второго числа и разность между квадратом первого числа и корнем второго числа.