для того, чтобы сохранить 1000 цифр, надо ⇒ i = 10 бит
тогда для записи идентификатора требуется 4*10+12 = 52 бит ≈ 7 байт
для 20 команд 7*20 = 140 байт
//Pascal ABC.NET Версия 2.2 Сборка 790
var a,b:string;
i,j,k:integer;
begin;
readln(a);
readln(b);
for i:=1 to length(a) do
begin;
for j:=1 to length(b) do
begin;
if a[i]=b[j] then
begin;
delete(b,j,1);
inc(k);
end;
end;
end;
if k=length(a) then writeln('Да') else writeln('Нет');
end.
Пример ввода:
abc
cba
Пример вывода:
Да
var a,b,c,max,min,s: integer;
begin
readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
if a<b then min:=a else min:=b;
if c<min then min:=c;
s:=(a+b+c)-(max+min);
writeln(s);
end.
Пример:
5 2 9
5
128000/(6*60)=<span>
355,5556бит/8/1024=</span><span>
<span>0,043403 Кбайта</span></span>
Ответ:
66 лет
Объяснение:
program Owl;
var
n: Integer;
begin
for n := 10 to 99 do
if ((n mod 6 = 0) xor (n mod 10 = 2)) and ((n > 32) xor (n mod 10 = 5)) and ((n mod 11 = 0) xor (n < 33)) then
WriteLn (n);
ReadLn;
end.