Question

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

Answer 1

// 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

Answer 2

1. В Паскале можно проверить, есть ли среди трех чисел пара одинаковых чисел, используя условные операторы и сравнение значений. Ниже приведен пример кода на Паскале, который решает эту задачу:

program CheckDuplicateNumbers;

var
  a, b, c: Integer;

begin
  writeln('Введите первое число:');
  readln(a);
  
  writeln('Введите второе число:');
  readln(b);
  
  writeln('Введите третье число:');
  readln(c);
  
  if (a = b) or (a = c) or (b = c) then
    writeln('Среди трех чисел есть пара одинаковых чисел.')
  else
    writeln('Среди трех чисел нет пары одинаковых чисел.');
end.

2. Для проверки наличия цифр a и b в заданном натуральном числе m, можно использовать цикл и операции деления и остатка от деления. Ниже приведен пример кода на Паскале, который решает эту задачу:

program CheckDigits;

var
  m, a, b, digit: Integer;
  containsA, containsB: Boolean;

begin
  writeln('Введите натуральное число:');
  readln(m);
  
  writeln('Введите цифру a:');
  readln(a);
  
  writeln('Введите цифру b:');
  readln(b);
  
  containsA := False;
  containsB := False;
  
  while m > 0 do
  begin
    digit := m mod 10;
    
    if digit = a then
      containsA := True;
      
    if digit = b then
      containsB := True;
      
    m := m div 10;
  end;
  
  if containsA then
    writeln('Число m содержит цифру a.')
  else
    writeln('Число m не содержит цифру a.');
    
  if containsB then
    writeln('Число m содержит цифру b.')
  else
    writeln('Число m не содержит цифру b.');
end.

3. Для нахождения n-го числа ряда Фибоначчи можно использовать рекурсию или цикл. Ниже приведен пример кода на Паскале, который находит n-ое число ряда Фибоначчи с использованием рекурсии:

program Fibonacci;

function FibonacciNumber(n: Integer): Integer;
begin
  if (n = 1) or (n = 2) then
    FibonacciNumber := 1
  else
    FibonacciNumber := FibonacciNumber(n - 1) + FibonacciNumber(n - 2);
end;

var
  n: Integer;

begin
  writeln('Введите номер числа ряда Фибоначчи:');
  readln(n);
  
  writeln('n-ое число ряда Фибоначчи: ', FibonacciNumber(n));
end.

Примечание: При использовании рекурсии для больших значений n может потребоваться значительное время или превышение доступной памяти. В таких случаях циклический подход может быть более эффективным.