Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

В Паскале
1. Есть ли среди трёх чисел пара одинаковых чисел?
2. Дано натуральное число m . Имеются ли в этом числе цифры a и b, вводимые с клавиатуры?
3.ряд чисел Фибоначчи 1, 1, 2,3,5,8,... Каждое следующее число равно сумме двух предыдущих. Найти n-ое число ряда.

Ответ оставил Гость

// PascalABC.NET 3.0, сборка 1073
var
  a,b,c:integer;
begin
  Write(Введи a,b,c: ); Read(a,b,c);
  if (a=b) or (a=c) or (b=c) then Writeln(Есть пара одинаковых)
  else Writeln(Все числа различные)
end.

Тестовое решение:
Введи a,b,c: 6 3 -12
Все числа различные

Введи a,b,c: 5 -4 5
Есть пара одинаковых

// PascalABC.NET 3.0, сборка 1073
var
  n:string;
  a,b:char;
begin
  Write(Введи натуральное число n: ); Readln(n);
  Write(Введи подряд пару разыскиваемых цифр: ); Read(a,b);
  if Pos(a,n)>0 then Writeln(В числе есть цифра +a)
  else Writeln(В числе цифры +a+ нет);
  if Pos(b,n)>0 then Writeln(В числе есть цифра +b)
  else Writeln(В числе цифры +b+ нет)
end.

Тестовое решение:
Введи натуральное число n: 3141592653589793
Введи подряд пару разыскиваемых цифр: 47
В числе есть цифра 4
В числе есть цифра 7

// PascalABC.NET 3.0, сборка 1073
var
  i,n:integer;
  fiba,fibb,fib:longint;
begin
  Write(Введи натуральное число (1-46): ); Read(n);
  if n<3 then Writeln(Число Фибоначчи равно 1)
  else begin
    fiba:=1; fibb:=fiba;
    for i:=3 to n do begin
      fib:=fiba+fibb;
      fiba:=fibb; fibb:=fib
    end;
    Writeln(Число Фибоначчи равно ,fib)
  end
end.

Тестовое решение:
Введи натуральное число (1-46): 13
Число Фибоначчи равно 233