Найти все 4-х значные числа, в которых сумма первых 2-х цифр равна сумме двух последних

@dellfa · Регистрация: 16.03.2010

Студворк — интернет-сервис помощи студентам

Найти все 4-х значные числа в которых сумма первых 2-х цифр числа равна сумме третьей и четвертой цифр этого числа...

Pascal

procedure summa(kol:longint;var sum:byte);
begin
  sum:=0;
  while kol>0 do
  begin
    sum:=sum+kol mod 10;
    kol:=kol div 10;
  end;
  writeln('ñóììà ðàâíà ',sum);
end;
var
chislo:longint;
sum:byte;
begin
  write('ââåäèòå ÷èñëî ');readln(chislo);
  summa(chislo,sum);
  readln;
end.

Сумму я нашла как найти....а как дальше ненаю

@SuPeR XaKer · 24.12.2010, 15:38

Pascal

Uses
 crt;
 
var
 i,kol:integer;
 
begin
ClrScr;
kol:=0;
for i:=1000 to 9999 do
if ((i div 1000)+(i mod 1000 div 100)=((i mod 100) div 10)+(i mod 10)) then
begin
 inc(kol);
 if (kol=400) then
 begin
  readkey;
  clrscr;
 end;
write(i:5);
end;
readln
end.

Опции темы