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

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 amin1:=a
else
min1:=b;
if cmin2:=c
else
min2:=d;
if min1min:=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 abegin
k:=a;
d:=b;
end
else
begin
k:=b;
d:=a;
if dg:=c
else
g:=d;
if g*g=d*d+k*k then
writeln ('треугольник прямоугольный')
else
writeln('треугольник не прямоугольный');
end.

Comments

во второй задачи после "d:=a;" надо поставить "end;"