Информатика, опубликовано 2018-08-22 18:58:38 by Гость
Написать программу,которая находит все четырехзначные числа abcd,для которых выполняются условия 1)a,b,c,d-разные цифры2)a*b-c*d=a+b+c+d
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.