паскаль. Даны три реальных числа a,b,c. Присвоить программной переменной YMin значение

Паскаль. Даны три реальных числа a,b,c. Присвоить программной переменной YMin значение min a,b,c.

Задать свой вопрос
1 ответ
Program min;
var
a,b,c,Ymin:integer;
begin
writeln('Введите три числа : ');
readln(a,b,c);
if agt;b then
 Ymin:=b else Ymin:=a;
If bgt;c then
 Ymin:=c else Ymin:=b;
If agt;c then
 Ymin:=c else Ymin:=a;
writeln('Наименьшее значение = ',Ymin);
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт