Решите в паскале 1. Даны действительные числа x, y. Вычислить их разность и частное. 2....

Question

Решите в паскале
1. Даны действительные числа x, y. Вычислить их разность и частное.
2. Дана сторона квадрата. Найти периметр, площадь и диагональ квадрата.

Answer 1

1.
Var x,y:real;
Begin
read(x,y);
writeln(x-y);
writeln(x/y:2:2); // Округление до 3 знаков после запятой
End.

2.
Var x:real;
Begin
readln(x);
writeln(x*4); // Периметр
writeln(x*x); // Площадь
writeln((x * sqrt(2)):3:3); // Диагональ; Округление до 3 знаков после запятой
End.