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