Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Контрольное задание №10-1 / 10-1 / zadanie_1
.pas program Zadanie_1;
var
X1,X2,X3,res:real;
begin
writeln ('‚ўҐ¤ЁвҐ १г«мв в 1 бЇ®авᬥ : ');
readln (X1);
writeln ('‚ўҐ¤ЁвҐ १г«мв в 2 бЇ®авᬥ : ');
readln (X2);
writeln ('‚ўҐ¤ЁвҐ १г«мв в 3 бЇ®авᬥ : ');
readln (X3);
if X1<X2 then res:=X1 else res:=X2;
if res>X3 then res:=X3;
writeln ('ђҐ§г«мв в Ї®ЎҐ¤ЁвҐ«п § Ї«лў : ', res:10:4);
end.
var
X1,X2,X3,res:real;
begin
writeln ('‚ўҐ¤ЁвҐ १г«мв в 1 бЇ®авᬥ : ');
readln (X1);
writeln ('‚ўҐ¤ЁвҐ १г«мв в 2 бЇ®авᬥ : ');
readln (X2);
writeln ('‚ўҐ¤ЁвҐ १г«мв в 3 бЇ®авᬥ : ');
readln (X3);
if X1<X2 then res:=X1 else res:=X2;
if res>X3 then res:=X3;
writeln ('ђҐ§г«мв в Ї®ЎҐ¤ЁвҐ«п § Ї«лў : ', res:10:4);
end.