Program Begin1;
Var
a: Real;
Begin
ReadLn(a);
WriteLn('P = ', 4 * a:6:3);
ReadLn;
End.
Похожие записи/страницы:
- Дана сторона квадрата a. Найти его периметр P = 4·a - Pascal(Паскаль)
- Дана сторона квадрата a. Найти его площадь S = a2 - Pascal(Паскаль)
- Задана запись, имеющая три поля: первое – первая сторона треугольника, второе –вторая сторона треугольника,…
- Дана сторона квадрата a. Найти его площадь - Pascal(Паскаль)
- Окружность с радиусом R вписана в квадрат .найти диагонали и периметр квадрата - Pascal(Паскаль)
- Найти площадь и периметр прямоугольника с катетами а и б - Pascal(Паскаль)
- Известны площадь круга S и площадь квадрата S. Определить: поместится ли квадрат в круг - Pascal(Паскаль)
- Написать программу, определяющую наименьшую площадь из трех заданных координатами своих вершин квадратов.…