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

Какой алгоритм для этого узора в чертежнике хелп


Какой алгоритм для этого узора в чертежнике хелп

Показать ответ
Ответ:
AzNas
AzNas
20.09.2021 03:20

895 =37F

895/16=55 остаток   15=F

55/16=3 остаток   7

3/16=0 остаток   3

1051 = 10000011011

1051/2=525 остаток   1

525/2=262 остаток   1

262/2=131 остаток   0

131/2=65 остаток   1

65/2=32 остаток   1

32/2=16 остаток   0

16/2=8 остаток   0

8/2=4 остаток   0

4/2=2 остаток   0

2/2=1 остаток   0

1/2=0 остаток   1

258 =102

258/16=16 остаток   2

16/16=1 остаток   0

1/16=0 остаток   1

4441 =10531

4441/8=555 остаток   1

555/8=69 остаток   3

69/8=8 остаток   5

8/8=1 остаток   0

1/8=0 остаток   1

4F =1001111

79/2=39 остаток   1

39/2=19 остаток   1

19/2=9 остаток   1

9/2=4 остаток   1

4/2=2 остаток   0

2/2=1 остаток   0

1/2=0 остаток   1

716 =1CE

462/16=28 остаток   14=E

28/16=1 остаток   12=C

1/16=0 остаток   1

0,0(0 оценок)
Ответ:
simeika98p0c45h
simeika98p0c45h
16.02.2020 01:26

Pascal

var

 s : string = 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';

 i : integer;

 s1, sR : string;

begin

 s:=s+' ';

 i :=1;

 sR :='';

 s1:='';

 while i <= length(s) do begin

   if (s[i] = ' ') then begin

      if s1[1] <> UpperCase(s1[1]) then

          sR := sr + s1 + ' ';

      s1:=''

   end

   else

     s1:=s1 + s[i];

   inc(i);

 end;

 delete(sR, length(sR), 1);

 print(sR);

end.

А вот на PascalABC.Net.  заметно короче будет

begin

 var s := 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';

 var a := s.ToWords.Where(v -> (v.First <> v.First.ToUpper)).JoinIntoString();

 println(a);

end.  


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