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

Определить основные функции табличной модели, количество правильных ответов: 2 хранения и обработки графической информации сортировка данных для программного кода
форматирование данных по критериям
расчет данных по формулам

Показать ответ
Ответ:
мистертомат
мистертомат
14.12.2021 16:24

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 оценок)
Ответ:
ZнyцPлaй
ZнyцPлaй
20.09.2021 22:03

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