Написать программу, которая находит все четырехзначные числа abcd, для которых выполняются условия

1) a, b, c, d-разные цифры

2) ab-cd=a+b+c+d

Question

Информатика

Анисия

15 октября, 01:33

Написать программу, которая находит все четырехзначные числа abcd, для которых выполняются условия

1) a, b, c, d-разные цифры

2) ab-cd=a+b+c+d

+5

Ответы (1)

Знаете ответ на вопрос?

Еля · Answer 1

Program fofgogjoj;

var

a, b, c, d:integer;

begin

for c:=0 to 7 do

begin

a:=c+2;

d:=9-c;

for b:=0 to 9 do

begin

if (bc) and (ba) and (bd) then

Writeln (a, b, c, d) ;

Writeln;

end;

end;

readln;

end.

Написать программу, которая находит все четырехзначные числа abcd, для которых выполняются условия1) a, b, c, d-разные цифры2) a*b-c*d=a+b+c+d

Написать программу, которая находит все четырехзначные числа abcd, для которых выполняются условия

1) a, b, c, d-разные цифры

2) ab-cd=a+b+c+d