Задание:
Помогите пожалуйста! Напишите программу вычисления площади боковой поверхностикуба!
Решение:
var a,b,s: real; beginwriteln ("Введите высоту куба"); Readln (a); writeln ("Введие длину стороны куба"); readln (b); s: =a*b; writeln ("Площадь равна» ,s); readln; end.
Знаете другой ответ?