Question

Напишите пожалуйста 2 программы в pascal ABC
1.даны 4 числа, найти наименьшее из них
2.даны 3 стороны треугольника, является ли он прямоугольным?

Answer 1

1
program z1;
var a,b,c,d, min1, min2, min:real;
begin
writeln ('Введите 4 числа:');
readln (a,b,c,d);
if a<b then
min1:=a
else
min1:=b;
if c<d then
min2:=c
else
min2:=d;
if min1<min2 then
min:=min1
else
min:=min2;
writeln ('Наименьшее число: ',min);
end.

2
program z1;
var a,b,c,d,g,k:real;
begin
writeln ('введите стороны треугольника:');
readln(a,b,c);
if a<b then
begin
k:=a;
d:=b;
end
else
begin
k:=b;
d:=a;
if d<c then
g:=c
else
g:=d;
if g*g=d*d+k*k then
writeln ('треугольник прямоугольный')
else
writeln('треугольник не прямоугольный');
end.