написать программу,которая находит все четырехзначные числа abcd,для которых выполняются условия 1)a,b,c,d-разные цифры 2)a*b-c*d=a+b+c+d
Answers & Comments
fofgogjoj
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.
katialo
Даны три действительных числа.Если только два из них равны между собой,то возвести все числа в квадрат и напечатать. В противном случае напечатать все три числа вот первая
Answers & Comments
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.
#include<conio.h>
int a,b,c,d;
main()
{
for (c=0; c<7; c++)
{
a=c+2;
d=9-c;
}
for (b=0; b<9; b++)
{
if ((b!=c)&&(b!=a)&&(b!=d))
printf("%d",a);
printf(" %d",b);
printf(" %d",c);
printf(" %d",d);
}
getch();
}