Question

Напишите код, я в ступоре

Answer 1

Ответ:

program HappyTicket;

uses

 SysUtils;

var

 n1, n2, m1, m2, i, c: Integer;

 s: string;

begin

 Write ('Введите два номера билета: ');

 ReadLn (n1, n2);

 if (n1 > 100000) and (n1 < 999999) and (n2 > 100000) and (n2 < 999999) then begin

   c := 0;

   for i := n1 to n2 do begin

     s := IntToStr (i);

     m1 := StrToInt (s [1]) + StrToInt (s [2]) + StrToInt (s [3]);

     m2 := StrToInt (s [4]) + StrToInt (s [5]) + StrToInt (s [6]);

     if m1 = m2 then begin

       Write (s, ' ');   // для проверки выводятся все билеты. после убрать

       Inc (c);

     end;

   end;

   WriteLn;

   WriteLn ('Количество = ', c);

 end else

   WriteLn ('Номера не шестизначные');

 ReadLn;

end.