не уверен, что написал все верно, так как программа смогла найти только одну такую пару чисел, но все
954 - 459 = 495
program p1; usescrt; vari,j,k,n,x,y,z : integer; begin
clrscr;
for i : = 1 to 9 do begin
for j : = 0 to 9 do begin
if i = j then continue;
for k : = 0 to 9 do begin
if (j = k) or (i = k) then continue;
if k*100+j*10+i < 100 then continue;
n : = (i*100+j*10+k) - (k*100+j*10+i);
if n > 100 then begin
x : = n div 100; y : = (n - x * 100) div 10; z : = n - (x*100+y*10);
if ((x = i) and (y = j) and (z = k)) or ((x = i) and (y = k) and (z = j)) or ((x = j) and (y = i) and (z = k)) or ((x = j) and (y = k) and (z = i)) or ((x = k) and (y = j) and (z = i)) or ((x = k) and (y = i) and (z = j)) then
writeln(i*100+j*10+k,' - ',k*100+j*10+i,' = ',n);
end;
end;
end;
end;
readln; readln;
end.
Поделитесь своими знаниями, ответьте на вопрос:
А1 операционная система - это: 1) программа для загрузки пк 2) программа или совокупность программ, щих работой компьютера и обеспечивающих про цесс выполнения других программ 3) программыдля обеспечения работы внешних устройств 4) программы для работы с файлами а2 для каких целей необходимо системное по? 1) для разработки прикладного по 2) для решения из проблемных областей 3) для ресурсами эвм 4) для расширения возможностей ос а3. выберите прикладные программы для обработки графической информации. 1) мiсrosоft word, staroffice writer 2)multiplan, quattro рro, supercalc 3) adobe photoshop, core1 photopaint, macromedia freehand 4) мicrоsоft power point, staroffice impress a4 для каких целей используют программу fine raeder? 1)для автоматического перевода текста 2)для компьютерных набора и верстки 3)для компьтеризации чертежных и конструкторских работ 4)для распознавания текста на языке в1 дайте определение.форматирование – это… в2 укажите область применения программ мультилекс, lingvo, полиглоссум c1 дайте классификацию программ по их юридическому статусу(платных)