с - гипотенуза, а и b - катеты, тогда по теореме Пифагора: с² = а² + b², откуда с = √(а² + b²).
Р = а + b + c, S = 1/2 · ab.
program praym_treug;
var a,b,c,s,p:real;
begin
write('Введите катеты: '); readln(a,b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
s:=1/2*a*b;
write('Гипотенуза = ',c:5:2,' Периметр = ',p:5:2,' Площадь = ',s:5:2);
end.
:5:2 - форматный вывод, т.е. ограничение на количество цифр в ответе. Для чисел типа real это важно, т.к. обычно в ответе после запятой много цифр (в случае форматного вывода останется только 2 - в нашем случае)
1.
var x: integer;
begin
randomize;
x := random(9000) + 1000;
x := x - x mod 10;
writeln(x);
end.
2.
var x, _sum: integer;
begin
randomize;
_sum := 0;
x := random(9000) + 1000;
x := x - x mod 10;
writeln('Случайное число:', x);
while x > 0 do
begin
_sum := _sum + x mod 10;
x := x div 10;
end;
if _sum mod 3 = 0 then
writeln('Сумма цифр кратна трём!')
else
writeln('Сумма цифр не кратна трём!');
end.
3.
var x, _sum: integer;
begin
randomize;
_sum := 0;
x := random(9000) + 1000;
writeln('Случайное число: ', x);
write('Если записать его в обратном порядке: ');
while x > 0 do
begin
write(x mod 10);
x := x div 10;
end;
end.