Задание:
Ааа + вв=сввс, составьте программу для определения цифр а, в, с
Решение:
uses crt; vari,j,a,b,c,s: integer; beginclrscr; for i: =1 to 9 do beginfor j: =1 to 9 do beginif i<>j then begins: =(i+i*10+i*100)+(j+j*10+j*100); if (s mod 100) div 10=(s div 100) mod 10) and (s div 100) mod 10=j) then beginif (s mod 10=s div 1000) and (s mod 10) <>j) and (s mod 10) <>i) thenwriteln (i, ', j, ', (s mod 10); end; end; end; end; end.
Знаете другой ответ?