1. Даны два ненулевых числа а и b. Напишите программу для нахождения суммы, разности, произведения и частного. 2. Напишите программу для нахождение периметра и площади прямоугольного треугольника, если даны длины его катетов а ...
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.
Не нашли ответ?
Похожие вопросы