написать программу,которая находит все четырехзначные числа abcd,для которых выполняются условия
1)a,b,c,d-разные цифры
2)a*b-c*d=a+b+c+d
Ответы
Ответ дал:
0
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 (b<>c)and(b<>a)and(b<>d) then
Writeln(a,b,c,d);
Writeln;
end;
end;
readln;
end.
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 (b<>c)and(b<>a)and(b<>d) then
Writeln(a,b,c,d);
Writeln;
end;
end;
readln;
end.
Ответ дал:
0
Даны три действительных числа.Если только два из них равны между собой,то возвести все числа в квадрат и напечатать. В противном случае напечатать все три числа вот первая
Ответ дал:
0
а мне их завтра сдавать))
Ответ дал:
0
спасибоооооу
Ответ дал:
0
но мне кажется что вторую я неправильно написал:(
Ответ дал:
0
в любом случае получится проверить только завтра)
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад