Минимум из двух значений на Pascal
Минимум из двух значений...
var
x,y: integer;
min: integer;
begin
write('Введите x и y: ');
readln(x,y);
if x<y then
min := x
else min := y;
writeln('Минимум = ',min);
end.
10.02.2015, 08:56 -
Категория: Статьи » Программирование » Pascal
