Условный оператор и оператор выбора. Тексты программ

Минимум из двух значений

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.

Упорядочение двух значений по возрастанию

var 
  x,y: integer;
  v: integer;
begin
  write('Введите x,y: ');
  readln(x,y);
  if x>y then
  begin
    v := x;
    x := y;
    y := v
  end;
  writeln('Результат упорядочения по возрастанию: ',x,' ',y);
end.

Ссылки

Оглавление