решите в паскале
1. Даны действительные числа x, y. Вычислить их разность и частное.
2. Дана сторона квадрата. Найти периметр, площадь и диагональ квадрата.
1. Даны действительные числа x, y. Вычислить их разность и частное.
2. Дана сторона квадрата. Найти периметр, площадь и диагональ квадрата.
More Questions From This User See All
Answers & Comments
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.