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.
фото и текст)