Var
a,b: string;
i: integer;
ka,kb: boolean;
begin
readln(a);
readln(b);
for i:=1 to 10 do
if a[i]='s' then ka:= true;
if ka then writeln('s in A');
for i:=1 to 20 do
if b[i]='q' then kb:= true;
if kb then writeln('q in B')
<span>end.</span>
Переведём 28 из 6-ой с.с. в 10-ую:
расставляем 0 под 8, а 2 под 1,
1*6^1+8*6^0=6+8=14.
Значит, получается, что наим ближайшее целое число 14-1=13.
Но с ответом я НЕ 100% уверена.. скорей всего будет 13, но может 14..
Например есть: сканер, видеокарта.
На до взять удалить его и перезагрузить комп 2 ити к компьюторному мастеру
700*1024*8/16/32000=11,2 сек
6300*1024*8/16/32000=100сек