Question

Написать программу на паскале 1. найти объем параллелепипеда (стороны ввести с клавиатуры) 2. высота треугольника равно 7 см, а основание 3 см. написать программу, вычисляющую площадь треугольника 3. вывести на экран сообщение "чему равно 10 : 2? " (написать часть программы для этого вывода)

Answer 1

№1

var vol, a, b, c: real;
beginwrite('Введите сторону а: ');
readln(a);
write('Введите сторону b: ');
readln(b);
write('Введите сторону c: ');
readln(c);
vol := a * b * c;
writeln('Объем прямоугольного параллелепипеда равен ', vol);
end.

№2

const a = 3;
const h = 7;
var S: real;
begin
S := 1 / 2 * a * h;
writeln('Площадь треугольника равна ', S);
end.

№3

var s: string;
begin
s := 'Чему равно 10 : 2?';
writeln(s);
readln();
end.