В 1 байте 8 бит, значит 4*8=32бита
//Pascal ABC.NET v3.1 сборка 1172
Var
s,c:string;
i,k,j,m:integer;
begin
readln(s);
k:=0;
m:=length(s);
i:=0;
while i<>m do
begin;
inc(i);
for j:=i to m do
if s[i]=s[j] then inc(k);
if k=3 then
begin;
c:=s[i];
while pos(c,s)<>0 do
delete(s,pos(c,s),1);
end;
k:=0;
m:=length(s);
end;
writeln(s);
end.
Пример ввода:
Панамка
Пример вывода:
Пнмк
Нам известно,что Алёша не поехал на автобусе. А когда из троллейбуса крикнули Боре,мы узнали,что Алёша не ехал на троллейбусе,значит он ехал на трамвае.
Если из троллейбуса кричали Боре,то значит это не он ехал на троллейбусе.
Боря ездит на автобусе,так как на троллейбусе ездит Витя,а на трамвае Алёша.
Алёша-на трамвае.
Боря-на автобусе.
Витя-на троллейбусе.
const n=10;
var a:array[1..n] of integer;
i: integer; p: longint;
begin
writeln('Введите элементы массива:');
for i:=1 to n do read(a[i]);
p:=1;
for i:=1 to n do p:=p*a[i];
writeln('p = ',p);
end.
Пример:
Введите элементы массива:
2 -3 4 1 8 -1 5 -7 -2 3
p = 40320