Определим последовательности an и bn следующим образом: - вопрос №121329675 от шамшода 02.08.2022 16:35

Question

Информатика: Определим последовательности an и bn следующим образом: a1 = 2, a2 = 3, a3 = 4, a4 = 7, a5 = 13, an = bn−1 + bn−3, n 5, bn — последовательность чисел, не входящих в an, записанных в возрастающем порядке.таким образом, последовательность an будет выглядеть следующим образом: 2, 3, 4, 7, 13, а последовательность bn – 1, 5, 6, 8, 9, ваша состоит в том, чтобы найти an и bn.входные данныевходной файл содержит целое число n (1 ≤ n ≤ 10000).выходные данныев первой строке выходного файла выведите an, во

шамшода · Answer

USES CRT;

VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;

BEGIN

ClrScr;

ReadLn(n);

m1:=n;

n1:=m1 div 100;

n2:=m1 mod 10;

n3:=(m1-n1*100-n2) div 10;

if n1=n2 then if n1=n3 then writeln('vse =');

if n1=n2 then writeln('1 i 3 =');

if n2=n3 then writeln('2 i 3 =');

if n1=n3 then writeln('1 i 2 =')

else writeln('<>');

END.

Проверяйте, что непонятно - спрашивайте.

Можно чуть поправить вывод, чтобы когда vse =, не вылезали 1 i 3, 1 i 2, 2 i 3.

Да и вообще writeln'ов можно наставить и переменные назвать покрасивше. но это уж вы сами, думаю, справитесь. В VAR у меня тоже есть лишние переменные, переделывал старый свой код наспех =)

Всего хорошего.