Решаем задачи Абрамян на Паскале. Begin 5

Begin5. Дана длина ребра куба $$a$$. Найти объем куба $$V=a^3$$ и площадь его поверхности $$S = 6*a^2$$.

Решение:

program Begin5;
var
  a,V,S: Real;
begin
  Write('Введите длину ребра куба: ');
  Readln(a);
  V:=a*a*a;
  Writeln('Объём куба равен: ',V);
  S:=6*sqr(a);
  Writeln('Площадь поверхности куба равна: ',S);
end.

program Begin5;

var

a,V,S: Real;

begin

Write('Введите длину ребра куба: ');

Readln(a);

V:=a*a*a;

Writeln('Объём куба равен: ',V);

S:=6*sqr(a);

Writeln('Площадь поверхности куба равна: ',S);

end.

Другие задачи из раздела Begin можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Begin 5

Комментарии:

Добавить комментарий Отменить ответ