Какое количество бит несет в себе сообщение о том, что нужный вам файл находится на одном из 8 дисков?
192
491
Ответы на вопрос:
var s:='2'+'8'*99+'2';
begin
while (pos('81',s)<>0) or (pos('882',s)<>0) or (pos('8883',s)<>0) do
begin
var i81:=pos('81',s);
var i882:=pos('882',s);
var i8883:=pos('8883',s);
if i81<>0 then
begin
delete(s,i81,2);
insert('2',s,i81)
end
else
if i882<>0 then
begin
delete(s,i882,3);
insert('3',s,i882);
end
else
delete(s,i8883,4);
insert('1',s,i8883);
end;
end.
Популярно: Информатика
-
Ася06501.08.2022 21:04
-
leonik979715.10.2020 00:06
-
ддд4умник09.06.2022 01:32
-
siri906.03.2021 00:38
-
snezoc13.02.2020 04:07
-
dendemintsev25.12.2020 23:48
-
Kisyshka09.07.2020 00:34
-
wrrrr11.03.2021 15:26
-
Емодзи22.11.2022 16:55
-
larisavenzel26.12.2022 17:17