Кратно 7

 

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

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

условие

Оператор1

 

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

 

 

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

 

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

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

 

Пример2:

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

 

programprimer1;

varx:integer;