Glebforst
А как насчёт почитать задание?Мне не нужна программа,которая показывает работу это автомата(то что мне скинул ты).Мне нужна программа,которая выводит все возможные варианты таких чисел.Думаешь я сюда написал потому что мне было лень написать текст в поисковике?Ты ошибаешься
Glebforst
Очень жалко,что такая хорошая задумка превратилась в то,что люди кидают ответы других людей по кругу.Иногда даже с одной и той же ошибкой,даже не смотрят,что копируют...
Answers & Comments
Program zadanie;
Var a,b,s1,n:integer;
Begin
Writeln('Введите 3-х значное целое число');
readln(s1);
If (s1>=100) and (s1<=999) then begin
for n:=100 to s1 do begin
a:=n div 100+(n div 10) mod 10;
b:=(n mod 100) mod 10+(n div 10) mod 10
end;
if a<b then writeln(b,a)
else writeln(a,b)
end;
writeln('Неправильное число.')
end.