Билет № 1.

1.                Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если точка принадлежит  заштрихованной области (см. рисунок 1)(I четверть)  и «Не принадлежит» в противном случае. Программа должна иметь дружественный интерфейс. Протестировать программу для точек (1.5,2), (0,0),

(-1.5,1),(1,-1.2), (-2,-1).

2.                На обработку поступает натуральное число, не превышающее 10⁹. Нужно написать программу, которая выводит на экран сумму цифр числа, не кратных 4. Если в числе нет цифр, не кратных 4, требуется на экран вывести «NO».

3.     Дан целочисленный массив из 7 элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Опишите на языке программирования Паскаль алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых хотя бы одно число является однозначным. В данной задаче под парой подразумевается два подряд идущих элемента массива.

Например, для массива из пяти элементов: 5; 10; 15; 3; 5 – ответ: 3.

Исходные данные объявлены так, как показано ниже на примере. Запрещается

использовать переменные, не описанные ниже.

Program pr3;

Const N = 7;

var

a: array [1..N] of integer;

i, j, k: integer;

begin

for i := 1 to N do

readln(a[i]);

...

end.

4.     Найти сумму N натуральных чисел, где S= 1+2+3+…+N.

Применить работу с файлами. Ввод данных осуществляется из файла number.dat     Вывод   данных осуществляется в файл number.sol

5.     Создать анимацию движения объекта в программе Macromedia   Flash