Вариант № 19 1. Определите, истинны или ложны следующие высказывания:
• Информация – это знания и сведения.
• Парта является средством хранения информации.
• Блок-схема является языком общения с компьютером.
• Цикл – это действия, которые выполняются при проверки условия.
• Число 25 десятичной системы представляется в двоичной системе как 11001.
• Операционная система является энергозависимой.
2. Составить сложные высказывания с дизъюнкции (два высказывания) и
конъюнкции (два высказывания). Определить истинность или ложность этих
высказываний.
3. Какова формула логического высказывания
«Если вы знаете основы логики, то умеете читать логические схемы и строить
таблицы истинности»?

Переменная a до выполнения условного оператора имеет значение 20. Чтобы из 20 получить 15, нужно вычесть 5, т.е. должен выполниться оператор присваивания, указанный после then, что возможно при истинности логического выражения if (a<1) ... (a>b).
Отношение a<1 при a=20 ложно, отношение a>b при a=20 и b=5 истинно. Логическая операция, результатом которой является "истинно" в случае, когда один операнд имеет значение "ложно", а второй "истинно" - это операция дизъюнкции ("логическое ИЛИ"). В языке Паскаль она записывается как "or"
ответ: or

1. "Школьное" решение

// PascalABC.Net 3.0, сборка 1066
var
  s,s1:string;
  i:integer;
  a:char;
begin
  Write('Введите натуральное число любой длины :'); Readln(s);
  Write('Введите цифру, которую надо удалить: '); Readln(a);
  s1:='';
  for i:=1 to Length(s) do
    if s[i]<>a then s1:=s1+s[i];
  Writeln('Результат: ',s1)
end.

Тестовый прогон:
Введите натуральное число любой длины :3141592653589793
Введите цифру, которую надо удалить: 5
Результат: 3141926389793

2. Современное решение (так в школе почему-то не учат)

// PascalABC.Net 3.0, сборка 1066
begin
  var s:=ReadString('Введите натуральное число любой длины :');
  var a:=ReadChar('Введите цифру, которую надо удалить: ');
  Write('Результат: ',s.Replace(a,''));
end.