Напишите программу в паскале, со всеми строчками!!! Написать программу вычисления объема куба и площади его боковой поверхности.
Answers & Comments
ajdarmardanovprogram cube;vara : real;beginwriteln('Программа вычисляет объем куба и площадь '+'его боковой поверхности по длине ребра');{I - ввод + ЗОД}repeatwrite('Введите длину ребра куба ');readln(a);if a<=0 thenwriteln('Ошибка! Длина ребра не может быть нулевой или отрицательной. '+'Повторите ввод.');until a>0;{II, III - расчет и вывод}writeln('Длина ребра куба = ',a:8:3,' м');writeln('Объем этого куба = ', (a*a*a):8:3,' м^3');writeln('А площадь его боковой поверхности = ', (6*a*a):8:3,' м^2');writeln('Нажмите [Enter] для завершения программы');readln;end.
Answers & Comments