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

Begin

Кратно 7

7 7

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

Else

Else

Begin

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

readln(x,y);

if x mod 2 =0 then writeln(x,' чётное число ')

if x mod y =0 then

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

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

end.

Результат

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

if условие then оператор_1;

условие

Оператор1

if условие then begin оператор_1;... оператор_n; end;

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

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

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

Пример2:

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

program primer1;

var x:integer;

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

readln(x);

if x<0 then x:=sqr(x);

writeln('x = ',x);

end.

Результат:

-2

x = 4

Пример3:

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

program primer1;

Результат Введите числа x и y -1 3 x = 1  

var x,y:integer;

Дата добавления: 2014-12-08