Ответ:
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.
<span>ЭТО называется: "инструментальные средства разработки", стыдно не знать.
</span>
N=2^i;
128=2^7 => i=7 бит
I=k*i=120*7=840 бит/8 = 105 байт
Ответ: 105 байт
//PascalABC.NET 3.0
begin
for var i := 1 to 10 do
begin
for var j := 1 to 10 do
if i = 1 then write(j : 3)
else if j = 10 then write(9 + i : 3)
else if i = 10 then write(29 - j : 3)
else if j = 1 then write(38 - i : 3)
else write(0 : 3);
writeln;
end;
<span>end.</span>