darya1122334455667
30.07.2021 00:10

РЕШИТЕ ЗАДАНИЯ ПО ИНФОРМАТИКЕ
№1)Двоичное число 10110 в десятичной системе счисления записывается так:
а) 26
б) 28
в) 22
г) 46

№2)Система команд исполнителя Вычислитель состоит из двух команд, которым присвоены номера:
- приписать 2
– разделить на 2
По первой из них к числу приписывается справа 2, по второй число делится на 2. Как будет преобразовано число 24, если исполнитель выполнит алгоритм 22212?
№3)Определите значения переменных х и у после выполнения алгоритма.
х:=11
y:=5
t:=y
y:=x mod y
x:=t
y:=y+2*t

а) x=11, y=5
б) x=5, y=11
в) x=10, y=5
г) x=5, y=10
№4)Исполните фрагмент алгоритма при a=5, b=1.

нет

да

Определите значение переменной b после выполнения фрагмента алгоритма.

№5)Какая последовательность символов не может служить именем в языке Паскаль?
а) ser5
б) _ser
в) Z4
г) 4r

№6)Запишите названия основных структурных блоков программы на языке Паскаль
program<имя программы>;
const<список постоянных значений>;
var<описание используемых переменных>;
begin<начало программного блока>
<оператор 1>;
<оператор 2>;
. . .
<оператор n>
end.
№7)Для вывода результатов в Паскале используется оператор
а) begin
б) read
в) writeln
г) print

№8)Для ввода значений в память компьютера в Паскале используется оператор
а) begin
б) readln
в) writeln
г) input

№9)Напишите программу поиска максимального из двух чисел.​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
podshchipkova
19.01.2020 16:18
1. Задача решается с стека (алгоритм Дейкстры для обработки обратной польской записи). Предполагается, что во вводимой строке содержится корректное выражение, удовлетворяющее условиям задания.

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var w:=ReadlnString.ToWords;
  var St:=new Stack <integer>;
  var r:=0;
  foreach var t in w do
    if t[1].IsDigit then St.Push(t.ToInteger)
    else begin
      var a:=St.Pop;
      var b:=St.Pop;
      case t[1] of
      '+':St.Push(a+b);
      '-':St.Push(b-a);
      '*':St.Push(a*b)
      end;
    end;
  Writeln(St.Pop) 
end.

Контрольный пример
8 9 + 1 7 - *
-102

2. Задача крайне просто решается при регулярного выражения с рекурсией. Фактически вводить количество шаров не нужно, поэтому после ввода оно отбрасывается.

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadlnString.ToWords.Skip(1).JoinIntoString('').
      MatchValue('(.)\1{2,}').Length);
end.

Контрольный пример
5 2 3 3 3 1
3
0,0(0 оценок)
Ответ:
Aldhynbaavyl
19.01.2020 16:18
1. Задача решается с стека (алгоритм Дейкстры для обработки обратной польской записи). Предполагается, что во вводимой строке содержится корректное выражение, удовлетворяющее условиям задания.

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var w:=ReadlnString.ToWords;
  var St:=new Stack <integer>;
  var r:=0;
  foreach var t in w do
    if t[1].IsDigit then St.Push(t.ToInteger)
    else begin
      var a:=St.Pop;
      var b:=St.Pop;
      case t[1] of
      '+':St.Push(a+b);
      '-':St.Push(b-a);
      '*':St.Push(a*b)
      end;
    end;
  Writeln(St.Pop) 
end.

Контрольный пример
8 9 + 1 7 - *
-102

2. Задача крайне просто решается при регулярного выражения с рекурсией. Фактически вводить количество шаров не нужно, поэтому после ввода оно отбрасывается.

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadlnString.ToWords.Skip(1).JoinIntoString('').
      MatchValue('(.)\1{2,}').Length);
end.

Контрольный пример
5 2 3 3 3 1
3
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота