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

Begin6. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем $$V=a*b*c$$ и площадь поверхности $$S=2*(a*b+b*c+a*c)$$.
Решение:

program Begin6;

var

a,b,c,V,S: Real;

begin

Writeln('Введите длину рёбер прямоугольного параллелепипеда.');

Write('Введите длину ребра прямоугольного параллелепипеда a: ');

Readln(a);

Write('Введите длину ребра прямоугольного параллелепипеда b: ');

Readln(b);

Write('Введите длину ребра прямоугольного параллелепипеда c: ');

Readln(c);

V:=a*b*c;

Writeln('Объём прямоугольного параллелепипеда равен: ',V);

S:=2*(a*b+b*c+a*c);

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

end.

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

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

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

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

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