Примеры программ на Pascal
Поиск минимума из двух чисел
Решение
|
1 2 3 4 5 6 7 8 9 10 11 12 |
var x,y,min: integer; begin write('Введите x и y: '); readln(x,y); if x<y then min := x else min := y; writeln('Минимум равен ',min); // www.itmathrepetitor.ru end. |