Введите число

Begin

Кратно 7

7 7

Введите числа x и y

Else

Else

Begin

writeln('Введите числа x и y');

readln(x,y);

ifx mod2 =0 thenwriteln(x,' чётное число ')

ifx mody =0 then

writeln(x,' кратно ',y)

writeln(x,' не кратно ',y,' и нечётное');

end.

Результат

б). Сокращенная форма записи

Работа оператора If

1. Если проверяемое условие истинно (true), то выполняется оператор1, записанный за служебным словом then,а затем следующий в программе оператор.

2. Если проверяемое условие ложно (false), то выполняется следующий в программе оператор.

Пример2:

Дано целочисленное число X. Определить является ли это число отрицательным, то возвести это число в квадрат , иначе - оставить X без изменений.

programprimer1;

varx:integer;

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

readln(x);

ifx<0 thenx:=sqr(x);

writeln('x = ',x);

end.

Результат:

-2

x = 4

Пример3:

Даны числа X и Y. Определить является ли число X отрицательным, если это так то возвести X в квадрат а Y в куб , если нет оставить X и Y без изменений.

programprimer1;