Задача в паскале ABC

[GreenWizard]

пардон, я пока не был знаком с аббревиатурой ТС
его код не работал т.к. он немного ошибся с mod/div, а я поправил его

[Fructis]

Какой спор разгорелся)) точнее дискуссия

[Hacker19_90]

А чу! Всё понял откуда взялась тема про массивы!

окей, тогда задачу 2.а реши без массивов и отличным от предложенного мною кода ещё и так же просто)

Да едрить мадрить! Легко

ReadLn (num);
if (num >= 1000) and (num <= 9999) then
    num  := (num mod 10) + ((num div 100) mod 10)*10;
else Writeln ('Error number');
WriteLn (num);

сойдёт?
Только вопрос причём тут задача 2а и ваш пример!
Если ваш пример для задачи 1а!

его код не работал т.к. он немного ошибся с mod/div, а я поправил его

Я ПОВТОРЯЮ! Код ТС Верен полностью!

[Fructis]

Я ПОВТОРЯЮ! Код ТС Верен полностью!

правда? вот так да))

[Hacker19_90]

правда? вот так да))

Правда!
А вы что думали если вы начинающий! То вы и код рабочий написать не можете?
Запомните - "НЕТ НЕВОЗМОЖНОГО"
Всё зависит от вашего отношения к делу!
Вот вам +1 к удаче!

[Fructis]

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

Правда!
А вы что думали если вы начинающий! То вы и код рабочий написать не можете?
Запомните - "НЕТ НЕВОЗМОЖНОГО"
Всё зависит от вашего отношения к делу!
Вот вам +1 к удаче!

спасииииибо)

[GreenWizard]

дет. сад)
хотя, признаюсь, код верный был, это я уже не так понял (ТС находит сотни-десятки-единицы, а меня смутило что div/mod в разнобой, да и думал это единицы-десятки-сотни)
с теми я валю мне нечего решать тут, а спорить лень)

[Hacker19_90]

дет. сад)

Ну я же не виноват. что приходится по нескольку постов доказывать, что этот код работает а этот нет!
Сами холивар разводите!
спорить? насчёт чего? Всё вроде понятно!
Нет? Ну напишите мне в личку, или в асю! Спорить не будем, просто пообщаемся!