Задачи ветвление if:

1. Водятся два числа определить большее из них.

2. Составить программу для вычисления значения функции y(x):

3. Дано целое число. Определить:

   1. является ли оно чётным или нечётным;

   2. оканчивается ли оно цифрой 5;

   3. оканчивается ли оно цифрой 7;

4. Дано двузначное число. Определить:

   1. какая из его цифр больше: первая или вторая;

   2. одинаковы ли его цифры?

   3. кратна ли трём сумма его цифр;

   4. кратна ли сумма его цифр числу A?

5. Дано трёхзначное число. Определить:

   1. кратна ли пяти сумма его цифр;

   2. кратна ли сумма его цифр числу A;

   3. является ли сумма его цифр двузначным числом;

   4. является ли произведение его цифр трёхзначным числом;

   5. больше ли числа A произведение его цифр;

   6. верно ли, что все его цифры одинаковые?

   7. определить, есть ли среди его цифр одинаковые?

6. Дано четырёхзначное число. Определить:

   1. равна ли сумма двух первых его цифр сумме двух его последних цифр;

   2. кратна ли трём сумма его цифр;

   3. кратно ли четырём произведение его цифр;

   4. кратно ли произведение его цифр числу A.

7. У дракона каждый год растет по 3 головы, до 100 лет, после 100 по 2 головы в год. Сколько голов и глаз у дракона которому N лет? N вводится с клавиатуры. Если N <=0 ответ 0.

8. Вводятся 3 целых числа. Определить большее из них

9. Вводятся 3 целых числа. Если существует треугольник с такими сторонами то вывести его периметр и площадь, иначе вывести фразу «треугольник не существует».

10. Даны три целых числа. Вывести на экран те из них, которые являются четными.

11. Даны три вещественных числа. Возвести в квадрат те из них, значения которых неотрицательны.

12. Даны три вещественных числа. Вывести на экран:те из них, которые принадлежат интервалу (1,6 – 3,8);

13. Даны четыре целых числа. Определить сумму тех из них, которые кратны трем.

Синтаксис коннструкции case:

case выражение of

список констант_1 : begin

{последовательность инструкций 1};

end;

список констант_2 : begin

{последовательность инструкций 2};

end;

список констант_n : begin

{последовательность инструкций n};

end

else begin

{последовательность инструкций, выполняемая в случае, если выражение не попало ни в один из списков констант};

end;

end;

Задачи

1. С клавиатуры вводится число от 2 до 5(школьная оценка). Вывести буквенное обозначение этой оценки.

2. С клавиатуры вводится число. Если число от 0 до 9 то вывести буквенное название цифры иначе «такой цифры нет».

Алгоритм цикл

Синтаксис оператора цикл for:

For i:=n1 to n2 do begin {последовательность операторов}; end; Либо: For i:=n2 downto n1 do begin {последовательность операторов}; end;

Где i – это счетчик цикла, который обязательно должен быть объявлен в разделе var, и иметь целочисленный тип;

n1 – начальное значение счетчика цикла;

n2 – конечное значение счетчика цикла.

Шаг изменения переменной – счетчика циклов может быть равен только 1(если используется ключевое слово to) или –1 (если используется ключевое слово downto).

Категорически не рекомендуется проводить какое–либо изменение переменной – счетчика цикла внутри тела цикла.