Практикалык жумыс информатика ​

Главная Буфер обмена, Слайды,шрифт,Абзац,Рисование,редактирование Вставка Таблицы, Иллюстрации, Связи, Текст, Клипы и мультимедиа Дизайн Параметры страницы, Темы, Фон Анимация Просмотр, Переход к этому слайду. Показ слайдов Начать показ слайдов, Настройка, Мониторы Рецензирование Правописание, Примечания, Защитить Вид Режимы просмотра презентации, Показать или скрыть, Маштаб, Цвет или оттенки серого, Окно, Макросы Конструктор Параметры стилей таблицы, Стили таблиц, Стили WordArt, Нариоовать границы Макет Таблица, Строки и столбцы, Объединить, размер ячейки, Выравнивание, Размер таблицы, Упорядочить

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