ВЫЧИСЛИТЬ ПОЛОЩАДЬ ПОВЕРХНОСТИ КУБА И ЕГО ОБЪЕМ,если ребро( h)) ВВОДИТСЯ С КЛАВИАТУРЫ.ВЫЧИСЛИТЬ, заполнить таблицу (начальные значения задать самостоятельно) H(cм) Sкуба(см) Vкуба(см) Срочно помогите
ВЫЧИСЛИТЬ ПОЛОЩАДЬ ПОВЕРХНОСТИ КУБА И ЕГО ОБЪЕМ,если ребро( h)) ВВОДИТСЯ С КЛАВИАТУРЫ.ВЫЧИСЛИТЬ, заполнить таблицу (начальные значения задать самостоятельно) H(cм) Sкуба(см) Vкуба(см)
Срочно помогите
Гость
Ответ(ы) на вопрос:
Гостьvar h,s,v:integer;
begin
write('h=');readln(h);
s:=6*h*h;
v:=h*h*h;
writeln(' h s v');
writeln(h:2,s:5,v:5);
end.
Пример:
h=5
h s v
5 150 125
Не нашли ответ?
Похожие вопросы