Помогите решить 2 задачи в паскале: 1)Определить равны ли все цифры заданного пятизначного числа. 2)Каждое число Фибоначчи вычисляется как f1=0, f2=1, а начиная с третьего по формуле fn=fn-1+fn-2. Составить программу, которая вычисляет n чисел Фибоначчи.
Ответы:
13-01-2014 08:47
1.Function Check(A : Longint) : Boolean;Begin If A>9 then Check:=((A mod 10)=(A div 10 mod 10)) and Check(A div 10) else Check:=True; end;Var N : Longint;Begin Readln(N); Writeln(Check(N));end.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите решить 2 задачи в паскале: 1)Определить равны ли все цифры заданного пятизначного числа. 2)Каждое число Фибоначчи вычисляется как f1=0, f2=1, а начиная с третьего по формуле fn=fn-1+fn-2. Составить программу, которая вычисляет n чисел Фибоначчи.» от пользователя Ekaterina Tolmacheva в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!