program answer;
var
a: real := 0;
V: real := 0;
begin
writeln('Вычисление объема куба.');
writeln('Введите длину ребра (см) и нажмите ENTER');
read(a);
V := Power(a, 3);
writeln('Объем куба:', V:4:2, 'куб. См.');
end.
Be the first to comment
You can use [html][/html], [css][/css], [php][/php] and more to embed the code. Urls are automatically hyperlinked. Line breaks and paragraphs are automatically generated.
Be the first to comment
You can use [html][/html], [css][/css], [php][/php] and more to embed the code. Urls are automatically hyperlinked. Line breaks and paragraphs are automatically generated.