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.
# Код на ruby 2.2.3p173 def zadanie(jump1, jump2) min = jump1 for i in 1..1000 next if (i*jump1)%jump2 == 0 or (i*jump2)%jump1 == 0
if min > (i*jump1)%jump2 min = (i*jump1)%jump2 p [min, "#{i} * #{jump1} - #{i*jump1/jump2} * #{jump2}"] end
if min > (i*jump2)%jump1 min = (i*jump2)%jump1 p [min, "#{i} * #{jump2} - #{i*jump2/jump1} * #{jump1}"] end end return min end # # Примеры применения p zadanie(33, 55)
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.