Если я правильно понял вопрос:
uses crt;Var a:integer;Beginread(a);
if (a>99) and (a<1000) then writeln ('трехзначное')
else writeln ('не трехзначное');End.
Таблицы - во вложении.
Пустые ячейки означают, что значение переменной ещё не определено
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
var n2 := n div 2;
(a[:n2].Reverse + a[n2:].Reverse).Println
end.
Это высказывание ложно, лишь когда первое выражение истинно, а второе ложно, следовательно:
Решая систему, получим, что наименьшее целое положительное значение х=10
Для того, чтобы перевести число из десятичной сс, надо делить на основание другой сс (в данном случае 5). И в ответе писать остатки от деления, которые получаются (как показано на фото). Ответ: 2332.