1. Даны два ненулевых числа а и b. Напишите программу для нахождения суммы, разности, произведения и частного.

2. Напишите программу для нахождение периметра и площади прямоугольного треугольника, если даны длины его катетов а и b.

3. Ввести трехзначное число a. Напишите программу которая поменяет крайние цифры числа местами.

1)

Program n1;

var a, b: real;

begin

readln (a, b) ;

writeln ('разность: ', a-b) ;

writeln ('произведение: ', a*b) ;

writeln ('сумма: ', a+b) ;

writeln ('частное: ', a/b) ;

end.

2)

Program n2;

var a, b, c: real;

begin

readln (a, b) ;

c:=sqrt (a*a+b*b) ;

writeln ('площадь: ',0.5*a*b) ;

writeln ('периметр: ', a+b+c) ;

end.

3)

Program n3;

var d1, d2, d3, a: integer;

begin

write ('введите число: ') ;

readln (a) ;

d1: = a div 100;

d2:=a div 10 mod 10;

d3:=a mod 10;

writeln (d3, d2, d1) ;

end.