Придумать выражение на Паскале.

[Stilet]

Не тот вопрос ты преподу задаешь.
Надо спрашивать у него про выражение.

[Lumpup]

Сообщение от Stilet

Не тот вопрос ты преподу задаешь.
Надо спрашивать у него про выражение.

Почему не тот? Я спросил, но он мне предложил лишь перевести на листочке числа из 3 в 9 СС и найти закономерность, затем я спросил, а какова максимальная длина числа, на что он ответил 3 цифры.

[Stilet]

Ха!
найти закономерность!
Замечтательный ответ...
Ну так попереводи первые 20 чисел и посмотри в чем закономерность )

[Lumpup]

Сообщение от Stilet

Ха!
найти закономерность!
Замечтательный ответ...

Это сарказм?

[min@y™]

если входное число в таком узком диапазоне, можно и таблицу составить.
не прокатит по условию.

но препод - ацкий чикатило и тролль. только воспалённый бешенством мозг мог сгенерировать такое идиотское и бесполезное задание. Автор, так можешь ему и передать, со ссылкой на этот форум и на меня лично.

[Serge_Bliznykov]

короче. Теперь всё ясно.
Препод ждёт от Вас такое выражение:

((N div 100) * 10) + ((N mod 100) div 10)*3 + (N mod 100) mod 10

программа целиком:

var N : integer;
begin
  repeat
    WriteLn('Введите число:');
    Readln(N);
  until (N>0) and (N<=122);
  
  WriteLn(((N div 100) * 10) + ((N mod 100) div 10)*3 + (N mod 100) mod 10)
end.

[Stilet]

Это сарказм?

Нет. Это удивление.

препод - ацкий чикатило и тролль.

Вот вот. С больным моском.

[min@y™]

until (N>0) and (N<=122);

Этой проверки недостаточно. 105 если ввести, то будет коллапс вселенной.

[Serge_Bliznykov]

Этой проверки недостаточно. 105 если ввести, то будет коллапс вселенной.

Угу. Коллапса не будет, будет неверный ответ.
Но такие числа невозможны по условию задачи (на входе число в ТРОИЧНОЙ записи).
уверен, что препод именно такого выражения от нашего автора темы и ждал.

[Stilet]

уверен, что препод именно такого выражения от нашего автора темы и ждал.

Уверен что препод именно 200$ от нашего автора темы и ждал.