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

[min@y™]

200$

Дададада!!!

[Lumpup]

Сообщение от 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.

Скорее всего это то, что нужно. Спасибо огромное!

[Lumpup]

Только вот незадача. Теперь он говорит, написать еще для 4-х и 5-и значного вводимого числа.

[Stilet]

Только вот незадача. Теперь он говорит, написать еще для 4-х и 5-и значного вводимого числа.

См. ниже

Дададада!!!

[Serge_Bliznykov]

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

Только вот незадача. Теперь он говорит, написать еще для 4-х и 5-и значного вводимого числа.

Стоп. А про 3-х значное не он говорил?!
Или многоэтапный процесс - вы будете ему приносить решения, а он каждый раз изменять условия задачи?!! Забавно!

Ну так в чём проблема. Логика написания уже Вам ясна?
довальте проверку, если число трёхзначное - то используйте выражение из пост
если 4-х значное - то другое выражение, (чуть длинее)
если 5-ти значное - то другое выражение (ещё чуть-чуть длинее).


Подозреваю, что он добивается от Вас понимания, как это выражение написано, как оно работает. У меня есть сомнения в том, что Вы это понимаете. (Рад, если я ошибаюсь на Ваш счёт). Вы "плаваете", он это и видит... И будет мучить, пока не поймёте, как же это выражение работает.

[Аватар]

...он добивается от Вас понимания, как это выражение написано, как оно работает

Не дождется. Ишь губу закатал ))

[Lumpup]

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

Стоп. А про 3-х значное не он говорил?!
Или многоэтапный процесс - вы будете ему приносить решения, а он каждый раз изменять условия задачи?!! Забавно!

Он говорил. Я думал на этом закончится всё.

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

Ну так в чём проблема. Логика написания уже Вам ясна?
довальте проверку, если число трёхзначное - то используйте выражение из пост
если 4-х значное - то другое выражение, (чуть длинее)
если 5-ти значное - то другое выражение (ещё чуть-чуть длинее).

Подозреваю, что он добивается от Вас понимания, как это выражение написано, как оно работает. У меня есть сомнения в том, что Вы это понимаете. (Рад, если я ошибаюсь на Ваш счёт). Вы "плаваете", он это и видит... И будет мучить, пока не поймёте, как же это выражение работает.

А нельзя это написать в одно выражение, то есть когда вводишь 3,4,5 значное число?

[Аватар]

Для любого не более чем 8-ми значного троичного числа. И готовься в армию

((N mod 100) div 10)*3+(N mod 10)+
(((N mod 10000) div 1000)*3+(N mod 1000) div 100)*10+
(((N mod 1000000) div 100000)*3+(N mod 100000) div 10000)*100+
(((N mod 100000000) div 10000000)*3+(N mod 10000000) div 1000000)*1000

[Serge_Bliznykov]

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

Ну так в чём проблема. Логика написания уже Вам ясна?
довальте проверку, если число трёхзначное - то используйте выражение из пост
если 4-х значное - то другое выражение, (чуть длинее)
если 5-ти значное - то другое выражение (ещё чуть-чуть длинее).

это я глупость сморозил. если число короче, то div 100xxx0 даст ноль, что никак не отразится на общей сумме.

Аватар, бинго!!