1. Три точки плоскости заданы своими координатами. Выяснить, какая точка расположена ближе к началу координат.
2. Программа для целого числа К (от 1 до 99), введенного с клавиатуры, печатает фразу «Мне К лет». При этом в нужных случаях слово «лет» заменяет на «год» или «года».
3. Известны год, номер месяца и день рождения каждого из двух человек. Определить, кто из них старше.
4. Дано натуральное четырехзначное число М. Является ли это число палиндромом (перевертышем) с учетом четырех цифр, как например, числа 2222, 6116, 0440 т.д.? Верно ли, что число содержит З одинаковых цифры?
5. Определить, впишется ли квадрат в окружность, если известны радиус окружности и сторона квадрата?
6. Определить принадлежность точки с координатами (х, у) сектору круга радиуса К с центром в начале координат, расположенному в первой четверти. Координаты точки и радиус вводятся с клавиатуры.
В n будем хранить количество чисел, которые ещё нужно вывести. a и b - предыдущее и текущее числа Фибоначчи. По определению, следующее число Фибоначчи равно сумме двух предыдущих, так что новое значение b будет a + b. Чтобы не заводить новую временную переменную, новое значение a можно будет найти, вычитая из нового b старое a, получится (a + b) - a = b.
В n будем хранить количество чисел, которые ещё нужно вывести. a и b - предыдущее и текущее числа Фибоначчи. По определению, следующее число Фибоначчи равно сумме двух предыдущих, так что новое значение b будет a + b. Чтобы не заводить новую временную переменную, новое значение a можно будет найти, вычитая из нового b старое a, получится (a + b) - a = b.
Код процедуры:
procedure print_fib(n: integer);
var a, b, t: integer;
begin
a := 0;
b := 1;
while n > 0 do
begin
write(b, ' ');
b := a + b;
a := b - a;
n := n - 1;
end;
end;
Пример основной программы:
begin
print_fib(10)
end.
Вывод:
1 1 2 3 5 8 13 21 34 55