В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
mrnikes2016
mrnikes2016
12.06.2020 10:07 •  Информатика

10 минут по информатике с дано.решением и ответом
1) текст написан 64 символьным алфавитом и несет 21 3/32 кбайта информации. сколько страниц в тексте если в каждой странице по 30 строк а в каждой строке по 60 символов

Показать ответ
Ответ:
OtlicnikKZ1337
OtlicnikKZ1337
31.08.2020 06:50
Windows 1.0 (1985)
Windows 2.0 (1987)
Windows 2.1 (1987)
Windows 3.0 (1990)
Windows 3.1 (1992)
Windows for Workgroups 3.11 (1992)
Windows NT 3.5 (1994)
Windows NT 3.51 (1995)
Windows 95 (1995)
Windows NT 4.0 (1996)
Windows 98 (1998)
Windows 98 SE (1999)
Windows 2000 (2000)
Windows ME (2000)
Windows XP (2001)
Windows Server 2003 (2003)
Windows XP 64-bit Edition (2005)
Windows Vista (2006)
Windows Home Server (2007)
Windows Server 2008 (2008)
Windows Small Business Server (2008)
Windows 7 — Windows NT 6.1 (2009)
Windows Server 2008 R2 (2009)
Windows Home Server 2011 (2011)
Windows 8 (2012)
Windows Server 2012 (2012)
0,0(0 оценок)
Ответ:
про783
про783
03.09.2022 13:26

program raf105;

var

 a,i,j,s: integer;

 f,st: string;

 inA,inB: boolean;

begin

 readln(a);

 readln(f);

 i:=1;

 while i < length(f)-1 do

   begin

     st:= f[i] + f[i+1];

     inA:= False;

     inB:= False;

     for j:=1 to length(st)-1 do

       begin

         if st[j] = 'a' then inA:= True;

         if st[j] = 'b' then inB:= True;

       end;

     if (not inA) or (not inB) then

       if st = 'bb' then

         f[i+1]:= 'a'

       else

         f[i+1]:= 'b';

       s:= s+1;

     i+= 2;

   end;

 writeln(s);

 for i:=1 to length(f)-1 do

   write(f[i],' ');

end.

PascalABC
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота