Дана длина ребра куба. найти объем куба и площадь его боковой поверхности. pascal

212

287

Посмотреть ответы 2

Ответы на вопрос:

Првнсл28458

Информатика

4,6(82 оценок)

Var a: real; begin write('введите сторону куба = '); readln(a); writeln('объем = ', a * a * a); writeln('площадь поверхности = ', 6 * a * a); end.

eldaryuldashev

Информатика

4,5(93 оценок)

//pascalabc.net 3.3,сборка 1611 от 06.01.2018 //внимание! если программа не работает, обновите версию! begin var n: =readinteger('n='); var mas: =arrrandom(n,-20,20); mas.println; writeln('положительных элементов: ',mas.count(t-> t> 0)); writeln('отрицательных элементов: ',mas.count(t-> t< 0)); writeln('нулевых элементов: ',mas.count(t-> t=0)); end.