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

Формулировка задачи:

Написать программу , которая находит и выводит на печать все четырехзначные числа abсd,для которых выполняется соотношение ab-cd=a+b+c+d,где abcd различные цифры и посчитать кол-во таких чисел.

Код к задаче: «Написать программу , которая находит и выводит на печать все четырехзначные числа - Turbo Pascal»

textual
uses crt;
var i,a,b,c,d,k:integer;
begin
clrscr;
k:=0;
for i:=1000 to 9999 do
 begin
  a:=i div 1000;
  b:=i div 100 mod 10;
  c:=i div 10 mod 10;
  d:=i mod 10;
  if(a<>b)and(a<>c)and(a<>d)
  and(b<>c)and(b<>d)and(c<>d)
  and(a*b-c*d=a+b+c+d) then
   begin
    write(i:8);
    k:=k+1
   end;
 end;
writeln;
write('k=',k);
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 4.333 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы