Практическая работа «Знакомство с ABC Pascal»

Практическая работа: «Знакомство с ABC Pascal»
Упражнение 1. Создать программу, вычисляющую длину гипотенузы c и величины двух углов α и β прямоугольного треугольника, если заданы длины двух его катетов a и b. Значения катетов вести с клавиатуры.
1. Наберите текст программы:
Program Pr_1;{Заголовок программы Pr_1}
var{Раздел описаний}
a, b, c, alf, bet : real; {Переменные a, b, c, alf, bet - вещественные}
Begin{Тело программы}
Write('a='); {Вывод запроса на экран}
Read (a);{Ввод значения a с клавиатуры}
Write('b='); {Вывод запроса на экран}
Read (b);{Ввод значения b с клавиатуры}
c:=sqrt(a*a+b*b); {Вычисление гипотенузы c}
alf:=arctan(a/b); {Вычисление угла alf }
bet:=arctan(b/a); {Вычисление угла bet }
Writeln('c=', c:6:2); {Вывод ответа}
Writeln('Радианы'); {Вывод ответа: углы в радианах}
Writeln('alf=', alf:6:2, 'bet=', bet:6:2);
End.{Конец программы}
Задания для самостоятельной работы
Вычислите среднее арифметическое (a+b)/2.
Составить программу вычисления площади и периметра прямоугольника по двум введенным сторонам. Предусмотреть вывод на экран сообщения о результате.
Вычислить сумму цифр трехзначного числа.
Вычислить произведение цифр трехзначного числа.