Программа в Lazarus:
Этот код запрашивает у пользователя длину ребра куба, а затем вычисляет его объем и площадь всей поверхности куба.
Программа в Lazarus:
program Calculator;var
sideLength, volume, surfaceArea: Double;
begin
Write('Введите длину ребра куба: ');
ReadLn(sideLength);
// Находим объем куба
volume := power(sideLength, 3);
WriteLn('Объем куба: ', volume:0:2);
// Находим площадь всей поверхности куба
surfaceArea := 6 * power(sideLength, 2);
WriteLn('Площадь всей поверхности куба: ', surfaceArea:0:2);
ReadLn;
end.
Этот код запрашивает у пользователя длину ребра куба, а затем вычисляет его объем и площадь всей поверхности куба.