Исходные данные - три числа a,b и с . Результату min

Исходные данные - три числа a,b и с . Результату min надо присвоить меньшего из них.

Задать свой вопрос
1 ответ
Var
a,b,c,min:integer;
begin
readln(a,b,c);
if (agt;b) and (agt;c) then min:=a;
if (bgt;a) and (bgt;c) then min:=b;
if (cgt;a) and (cgt;b) then min:=c;
write(min);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт