Условный оператор IF

Задача 1.Определить является ли данное целое число R четным. Дать словесный ответ.

USES Crt;

VAR

R: INTEGER;

BEGIN

ClrScr;

WriteLn('Введите число');

ReadLn(R);

IF R MOD 2 = 0 Then WriteLn('Число четное')

Else WriteLn('Число не четное');

END.

Задача 2.Даны три целых числа. Выбрать из них те, которые принадлежат интервалу [1,3]

USES Crt;

VAR

X, Y, Z: INTEGER;

BEGIN

ClrScr;

WriteLn('Введите три целых числа');

ReadLn(X,Y,Z);

IF (X>=1) AND (X<=3) Then WriteLn('Первое число принадлежит заданному интервалу')

Else WriteLn('Первое число не принадлежит заданному интервалу');

IF (Y>=1) AND (Y<=3) Then WriteLn('Второе число принадлежит заданному интервалу')

Else WriteLn('Второе число не принадлежит заданному интервалу');

IF (Z>=1) AND (Z<=3) Then WriteLn('Третье число принадлежит заданному интервалу')

Else WriteLn('Третье число не принадлежит заданному интервалу');

END.

Задача 3.Даны положительные целые числа A, B, C. Выяснить существует ли треугольник с длинами сторон A, B, C.

USES Crt;

VAR

A, B, C: INTEGER;

BEGIN

ClrScr;

WriteLn('Введите три числа');

ReadLn(A,B,C);

IF (A+B>C) AND (A+C>B) AND (B+C>A) Then WriteLn('Треугольник построить можно')

Else WriteLn('Треугольник построить нельзя');

END.

.....................................................................................................................................

Практические задания

.....................................................................................................................................

1. Заданы два числа X, Y. Меньшее из двух значений заменить на 0. Если же они равны – заменить нулями оба.

2. Поменять местами значения целых переменных A, B, C таким образом, чтобы оказалось A³B³C.

3.Заданы три числа X, Y, Z. Найти min(XYZ, X+Y+Z).