- Даны катеты прямоугольного треугольника. Найти его периметр.
- Известны координаты двух точек плоскости. Найти расстояние между ними.
- Определить является ли заданное число трехзначным.
- Найти наибольшее из трех заданных чисел.
- Даны действительные (вещественные) числа Х и У. Определить принадлежит ли она заштрихованной области на рисунке.
- Составить программу для определения вида четырехугольника, у которого две стороны параллельны. Определить по двум прилегающим к одной из параллельных сторон углам Х и У (в градусах) к какому из четырех видов относится четырехугольник: обыкновенная трапеция, прямоугольная трапеция, равнобедренная трапеция, прямоугольник, параллелограмм.
- Сумма цифр трехзначного числа кратна 3. Найти все такие числа.
- Дано натуральное число N. Найти количество цифр, кратных трем.
- Перепишите следующую программу без ошибок и определите какое значение будет иметь переменная P после выполнения программы, если с клавиатуры введено число 7?
PROGRAM OL;
Var a;b;h:integer
BEGIN
WriteLn(‘Введите число’ );
ReadLn(a);
If a>=2 and a