Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

№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.