Регистрация
DimaGostovsky
07.04.2023 00:12
Информатика
Есть ответ 👍

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

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

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

egor535
egor535
4,6(47 оценок)

program kub;

uses crt;

var a: real;

begin

clrscr;

writeln('введите ребро куба');

readln(a);

writeln('площадь грани =',a*a);

writeln('площадь полной поверхности =',a*a*6);

writeln('объем куба =',a*a*a);

readln

end.

Love2111
Love2111
4,8(34 оценок)
{тоже как вариант} const   v: array [0..9] of integer = (1,0,0,0,1,0,1,0,2,1); var   x,n: integer; begin   read(x);   n : = 0;   repeat       n : = n + v[x mod 10];       x : = x div 10;   until x = 0;   write(n) end.

Популярно: Информатика