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

Алгоритм с ветвлением – это такой алгоритм, в котором осуществляется выбор одного из двух путей продолжения алгоритма. На TPascal данный алгоритм реализуется через условные операторы.

Полное ветвление Команда 1 Команда 2 … Условие Команда 1 Команда 2 … ДаНет IF IF THEN THEN ELSE ;

Неполное ветвление Условие Команда 1 Команда 2 … Да IF IF THEN ; THEN ;

Замечания : Перед ELSE знак «;» не ставится; Перед ELSE знак «;» не ставится; Если после ELSE или THEN стоит не один оператор, то они заключаются в операторные скобки BEGIN - END; Если после ELSE или THEN стоит не один оператор, то они заключаются в операторные скобки BEGIN - END;

Задача Дано двузначное число. Определить кратна ли трём сумма его цифр? Program z_1; Var a, e, d, s: integer; Begin Writeln(Введите число); Readln(a); E:= a mod 10; D:= a div 10; S:= e+d; If s mod 3 = 0 then writeln(сумма цифр кратна трём) else writeln(сумма цифр не кратна трём); else writeln(сумма цифр не кратна трём);Readln;end.

Задачи 1. Дано двухзначное число. Определить одинаковы ли его цифры? 2. Дано трёхзначное число. Определить, какая из его цифр больше первая или последняя. 3. Дано трёхзначное число. Определить равен ли квадрат этого числа сумме кубов его цифр?