Подборка задач для программирования на Паскале

Задача 1.

Составить программу распечатывающую все числа Фибоначчи,

непревосходящие данное введённое число.

Program Ряд Фибоначчи (input, output);

Uses crt;

Var N, N1, N2, N3: integer;

Begin

Writeln ('Введите число ограничивающее

ряд чисел Фибоначчи '); Read (N);

N1:=1; N2:=1; N3:=2; Write('1,1');

While N3

Begin

Write (',',N3);

N1:=N2; N2:=N3;

N3:=N1+N2;

End;

Repeat until keypressed;

End.

Задача 2.

Составить программу, которая по заданному номеру «К» (К>2)

выдаёт К-й член последовательности чисел Фибоначчи.

Program Число Фибоначчи (input, output);

Uses crt;

Var Z, K, N1, N2, N3: integer;

Begin

Writeln ('Введите номер интересующего вас числа

Фибоначчи '); Read (K);

N1:=1; N2:=1;

For Z:=3 To K Do

Begin

N3:=N1+N2;

N1:=N2; N2:=N3;

End;

Writeln('На',K,'-том месте в последовательности Фибоначчи

находится число',N3);

Repeat until keypressed;

End.

Задача 3.

Составить программу проверки принадлежит ли данное число , введённое пользователем числом Фибоначчи.

Program Проверка Фиббоначчи (input, output);

Uses crt;

Var Z, N, N1, N2, N3: integer;

Begin

Writeln ('Введите интересующее вас число для проверки

принадлежности ряду чисел Фибоначчи '); Read (N);

N1:=1; N2:=1; N3:=2; Z:=0;

While N3<=N Do

Begin

If N3=N then Z:=1;

N3:=N1+N2;

N1:=N2; N2:=N3;

End;

If Z=1 then Writeln ('Данное',N,' принадлежит ряду Фибоначчи')

else Writeln ('Данное',N,' не принадлежит ряду Фибоначчи');

Repeat until keypressed;

End.

Задача 4.

Составить программу выясняющую между какими числами Фибоначчи лежит данное введённое пользователем число.

Program Границы Фибоначчи (input, output);

Uses crt;

Var N, N1, N2, N3: integer;

Begin

Writeln ('Введите интересующее вас число для проверки

границ Фибоначчи '); Read (N);

N1:=1; N2:=1; N3:=2;

While N3<=N Do

Begin

N3:=N1+N2;

N1:=N2; N2:=N3;

End;

Writeln ('Данное число ',N,' лежит между числами

Фибоначчи ',N1,' и ',N2);

Repeat until keypressed;

End.

Задача 5.

Составить программу, которая подсчитывает в ограниченной

числом N (верхний предел) последовательности чисел Фибоначчи

количество простых и количество совершенных чисел.

Program Разбиение Фибоначчи (input, output);

Uses crt;

Var Z, P, N, N1, N2, N3: integer;

Begin

Writeln ('Введите число ограничивающее ряд чисел

Фибоначчи '); Read (N);

N1:=1; N2:=1;N3:=2; P:=0; C:=0;

While N3<=N Do

Begin

N3:=N1+N2; Z:=0;

For I:=3 To N3 Do

If (N3 mod I)=0 then Z:=Z+1

If Z=2 then P:=P+1 else C:=C+1

N1:=N2; N2:=N3;

End;

Writeln('Этот ограниченный ряд Фиббоначчи - числа

непревышающие ',N,'- содержит',P,' простых

чисел и ',C,' составных чисел';

Repeat until keypressed;

End.