Условный оператор и оператор выбора. Тексты программ: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Строка 14: | Строка 14: | ||
=== Определение четности числа === | === Определение четности числа === | ||
<source lang="Pascal">var x: integer; | |||
begin | |||
write('Введите x: '); | |||
readln(x); | |||
if x mod 2 = 0 then | |||
writeln('Это четное число') | |||
else writeln('Это нечетное число'); | |||
end.</source> | |||
=== Состоит ли двузначное число из одинаковых цифр === | === Состоит ли двузначное число из одинаковых цифр === | ||
=== Упорядочение двух значений по возрастанию === | === Упорядочение двух значений по возрастанию === |
Версия от 09:27, 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.
Определение четности числа
var x: integer;
begin
write('Введите x: ');
readln(x);
if x mod 2 = 0 then
writeln('Это четное число')
else writeln('Это нечетное число');
end.