Условный оператор и оператор выбора. Тексты программ
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Минимум из двух значений
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.
Состоит ли двузначное число из одинаковых цифр
Код на PascalABC.NET:
var x: integer;
begin
write('Введите двузначное число: ');
readln(x);
var c1 := x div 10;
var c2 := x mod 10;
if c1=c2 then
writeln('Цифры числа совпадают')
else writeln('Цифры числа не совпадают');
end.