Оператор условного перехода краткой формы.

IF условие THEN оператор1;

IF х>5 THEN e:=3”;

Если условие истинно, то выполняется оператор, иначе управление передается оператору, следующему за условным оператором.

Оператор может быть простым или составной.

Составной оператор – это последовательность операторов заключенные м/у begin и end.

1. Дано двузначное число n. Определить входят ли в него цифры 4 или 7.

Var n,d,e:intereg;

begin

writeln('vvediye chifru');

readln(n);

e:=n mod 10;

d:=n div 10;

if (e=4)or(e=7)or(d=4)or(d=7)

then writeln('vhodit')

else writeln(' ne vhodit');

readln

end.

1. Написать программу выбора наибольшего из трёх чисел.
2. Даны x, y. Если x и y отрицательны, то каждое значение заменить его модулем; если отрицательно только одно из них, то оба значения увеличить на 0.5; если оба значения неотрицательны, то оба значения увеличить в 10 раз.
3. Выяснить, принадлежит ли точка M(x,y) кругу радиуса r с центром в точке с координатами a,b.
4. Определить, принадлежит ли точка M(x,y) кольцу с центром в начале координат, внешним радиусом R1, и внутренним радиусом R2.
5. Даны три числа a, b, c. Выяснить, верно ли, что a<b<c. Ответ получить в текстовой форме: верно или неверно.