<span>Малая цифровая вычислительная машина.
ЭВМ</span>
ПаскальАВС.нет
var
n:integer;
s:string;
begin
readln(n);
s:=StringOfChar('*',n);
writeln(s);
<span>end.</span>
Размер алфавита вычисляемся по формуле:
N = 2 ^n, где n - количество бит отводимое для записи одного числа.
Найдём n и будет нам счастье.
1/128 = 2^(-7) Гб = 2^3 Мб = 2^13 Кб = 2^23 Б = 2^26 бит
Ну и n = 2^26/16*64*64 = 2^26/2^16 = 2^10 = 1024.
Ну и размер: N = 2^1024
Лучше сам/а пересчитай. Могла ошибиться, ну а логика такая
Ответ:
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.