Условный оператор и оператор выбора. Тексты программ: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Нет описания правки |
|||
Строка 1: | Строка 1: | ||
__NOTOC__ | __NOTOC__ | ||
=== Минимум из двух значений === | === Минимум из двух значений === | ||
<source lang="Delphi">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.</source> | |||
=== Определение четности числа === | === Определение четности числа === | ||
=== Состоит ли двузначное число из одинаковых цифр === | === Состоит ли двузначное число из одинаковых цифр === |
Версия от 09:25, 13 ноября 2009
Минимум из двух значений
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.