Question

Задача А. Двузначные числа
Вася, скучая на уроке математики, писал в тетради различные двузначные числа. Наугад выбирая
три числа, он проверял, можно ли, суммируя первые два числа, получить третье. Сосед по парте
отличник Костя, усложнив задачу, написал программу, которая позволяет проверить можно ли
перестановкой цифр в числах a и b, записанных Васей, получить их сумму равную c.
Входные данные
Входной файл содержит три натуральных числа: a, b, c (9< a, b, c < 100). Числа разделены
пробелом.
Выходные данные
Если искомая перестановка цифр невозможна, вывести в выходной файл два нуля, разделенных
пробелом. При положительном ответе необходимо вывести число x, получаемое перестановкой
цифр числа a, и число y, получаемое перестановкой цифр числа b, сумма которых равна c. Числа x
и y выводятся в порядке неубывания и разделяются пробелом.

Answer 1

Это задание олимпиады как я догадалась) Сама решала, надеюсь у тебя паскаль
program tag;
vara,b,c,d,e: integer;f1,f2: text;
beginassign(f1,'Input.txt');assign(f2,'Output.txt');reset(f1);readln(f1,a);if a>19 then e:=0 else e:=1;c:=0;while c<>a do  begin  d:=b;  read(f1,b);  if b-d<>1 then e:=e+1;  c:=c+1;  end;if a=0 then e:=e-1;close(f1);rewrite(f2);write(f2,e);close(f2);end.
фото и текст)