Задачи на ветвление. (Паскаль)

Знакомство с ветвлением. Задачи на ветвление.  Задача 1:  Введите число х.  Если число больше 100, то прибавить 50, если меньше  – умножить на 2. Program z1; Var x:integer; Begin Writeln (‘Введите x’); Readln (x); If x>100 Then      x:=x+50       Else           x:=x*2; Writeln (x);       End. Задача 2:  Введите два числа (x, y). Если число x больше  числа y, то число х  увеличить на 2, если меньше числа y – то к числу х прибавить число y. Задача 3:  Введите два числа (x, y). Если число x больше  числа y, то на экран  выдать сообщение, что максимальное число х, иначе, что больше число y. ­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­ Задачи на ветвление. Задача 1:  Введите два числа (x, y).  Первое число умножить на 2, ко второму  прибавить 20. На экран выдать получившиеся  два числа в порядке возрастания.  (Пример сообщений на экране:  Введите 2 числа. (ввод двух чисел через пробел 15 8) Числа в порядке возрастания: 28, 30) Задача 2:  Введите три числа (a, b, c). Найти  сумму чисел и если сумма больше  100, выдать соответствующее сообщение и сумму. (Пример: Сумма больше 100   = 258). Задача 3:  Введите два числа (x, y).  Если второе число не равно нулю, то первое  число разделить на второе и выдать ответ иначе вывести сообщение «На ноль  делить нельзя!». Помощь: Тип результата использовать real.            Примеры сообщений на экране:  Введите 2 числа. (5 0) На ноль делить нельзя! Введите 2 числа. (5 2) Результат деления = 2.5 Задачи на ветвление. Сложное условие. Вложенное условие. Задача 4: Ввести 3 числа. Вывести их в порядке возрастания. (12, 34, 56)  Задача 5: Ввести возраст человека (от 1 до 100 лет) и вывести его вместе с  последующим словом "год", "года" или "лет".     Пример: Введите возраст:      Введите возраст: 24                                 57 Вам 24 года               Вам 57 лет Идея решения кроется в проверке, того, на какую цифру заканчивается число:  Если на 1, то пишем год.  Если на 2, 3 или 4, то пишем года. Оставшиеся – пишем лет. Проверка последней цифры осуществляется арифметической операцией mod. Пример:   Если   a mod 10=1, то  вывод «год». Для проверки на 2, 3, 4 – использовать условие and.  if  (a mod 10=2) and (a mod 10=3) and (a mod 10=4) then … Исключение 11, 12, 13, 14 лет продумать отдельно. ­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­ Задачи на циклы 1 Написать программу, находящую все четные числа от нуля до n (n вводится с  клавиатуры). Фрагмент программы: writeln ('Введите число'); readln (n); writeln ('Четные числа: '); for i:=1 to n do begin if i mod 2 = 0 then write(i,' '); end; 2 Изменить программу так, чтобы выводились на экран нечетные числа. 3 Дополните программу так, чтобы определялась сумма всех нечетных чисел от 1 до n. Отладка:  Введите число 12 Нечетные числа:  1 3 5 7 9 11 Сумма=36 Введите число 37 Нечетные числа:  1 3 5 7 9 11 13 15 17 19 21 23 25 27 29  31 33 35 37 Сумма=361 4 Напишите программу, которая требует у вас пароль, например 111. Если  пароль правильный, то выводит сообщение «Молодец». Если после пятой  попытки пароль все равно неверен, выводит сообщение «Карта  заблокирована». 5*.  Вычислить:  (1+2)*(1+2+3)*…*(1+2+…+n) (n вводится с клавиатуры)  Отладка: 1) n=4, pr=180;  2) n=6, pr=56700;  3) n=8, pr=57153600. Интересные задачи для программирования 1 Билет называют «счастливым», если в его номере сумма первых трех цифр равна сумме последних трех. Организовать ввод номера билета и  определить, является ли он счастливым. 2 Составьте программу, вычисляющую A*B, не пользуясь операцией  умножения. А и B любое натуральное число. 3 Составьте программу, которая выводит полную запись десятичного числа  42?4?, в которой пропущены две цифры (обозначены ?), если известно, что  данное число кратно 72. (Одно из таких чисел 42048). 4 Найти все трехзначные числа, средняя цифра которых равна сумме первой и второй цифр (Например, число: 132). 5 В каких двузначных числах удвоенная сумма цифр равна их  произведению?  (Одно из таких чисел 44:   4*2+4*2 = 4*4) 6 Запишите любое число от 1 до 1000, введенное пользователем, русскими  буквами. Например, 2 – два, 150 – сто пятьдесят.