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

ИНФОРМАТИКА ОЧЕНЬ НУЖЕН ОТВЕТ. ЗА ОТВЕТЫ НА ВСЕ ВО ИНФОРМАТИКА ОЧЕНЬ НУЖЕН ОТВЕТ. ЗА ОТВЕТЫ НА ВСЕ ВО ИНФОРМАТИКА ОЧЕНЬ НУЖЕН ОТВЕТ. ЗА ОТВЕТЫ НА ВСЕ ВО ИНФОРМАТИКА ОЧЕНЬ НУЖЕН ОТВЕТ. ЗА ОТВЕТЫ НА ВСЕ ВО ИНФОРМАТИКА ОЧЕНЬ НУЖЕН ОТВЕТ. ЗА ОТВЕТЫ НА ВСЕ ВО ИНФОРМАТИКА ОЧЕНЬ НУЖЕН ОТВЕТ. ЗА ОТВЕТЫ НА ВСЕ ВО

Показать ответ
Ответ:
миса33
миса33
30.04.2020 17:23

Адекватная версия:

PascalABC.NET

begin

 var expr := Readstring();

 expr.Split(' ')[0].Println;

end.

Версия "Нас так учили"

var  

expression: string;

s_index: byte;

begin

 s_index := 1;

 readln(expression);

 while expression[s_index] <> ' ' do begin

   write(expression[s_index]);

   s_index := s_index + 1;

 end;  

 

end.

Объяснение:

Т.к по условию слово - последовательность непробельных символов, ограниченная пробелами или концами строки, то данная программа полностью игнорирует пунктуацию и считает любой символ частью того слова, с которым он не разделён пробелом.

0,0(0 оценок)
Ответ:
voinabeskonechnosti
voinabeskonechnosti
30.04.2020 17:23

Адекватная версия:

PascalABC.NET

begin

 var expr := Readstring();

 expr.Split(' ')[0].Println;

end.

Версия "Нас так учили"

var  

expression: string;

s_index: byte;

begin

 s_index := 1;

 readln(expression);

 while expression[s_index] <> ' ' do begin

   write(expression[s_index]);

   s_index := s_index + 1;

 end;  

 

end.

Объяснение:

Т.к по условию слово - последовательность непробельных символов, ограниченная пробелами или концами строки, то данная программа полностью игнорирует пунктуацию и считает любой символ частью того слова, с которым он не разделён пробелом.

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