Войти Регистрация Спроси ai-bota

Pascal дана строка в которой насколько слов. найти длину первого слова

Показать ответ

Ответ:

nafasomf188

01.10.2020 13:16

var
str:string;
p:integer;
begin
readln(str);

p:=pos(' ',str);

writeln(p-1);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

NiazMth

08.04.2022 17:51

1. Які операції належать до операцій редагування книги?...

Misha01923

22.08.2020 04:57

Запишем на языке Паскаль алгоритм получения частного q и остатка r от деления натурального числа х на натуральное число у без использования операции деления. program n_14; var...

cksenia112

26.01.2023 03:44

В яких із наведених операторів циклу тіло циклу не виконається жодного разу? Позначте всі правильні відповіді. * i := 10; Whіle i = 10 do i := i+1; For i := 10 to 0 do S = S...

polycov200412

23.12.2020 13:17

На жестком диске используется размещения файлов в виде связного списка кластеров. ссылка на кластер занимает 4 байта. запись каталога вместе с атрибутами файла занимает 32 байта....

f0xsick

23.05.2022 04:02

7. Установите соответствие между функциями и их значениями, если х= 1.69. Укажите соответствие для всех 4 вариантов ответа:1) 1sqrt (x)2) 1.69abs (X)3) 1.3int (x)гоund (x)4)2...

akoa

27.03.2023 01:36

Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 5 или 9. Программа получает на вход целые числа, количество введённых чисел...

Куйтвой

31.03.2020 22:22

Определите наименьшее натуральное число A, при котором выражение & → & ∨ &тождественно истинно (то есть принимает значение 1 при любом натуральном значении переменной...

nik123580

19.12.2022 06:37

Выберите неверное утверждение. Структурное программирование включает в себя безусловный переход. Для составления алгоритма решения логической задачи достаточно базовых алгоритмических...

lenatolkina

31.07.2021 06:31

Подчеркнуть грамматические основы всё-таки мне кажется, что вы не имеете право так поступать. она напевала мотивы, которые трогали до слёз. если бы знал все последствия, не полез...

Марина11133

31.07.2021 06:31

Твір роздум чому я поважаю свого друга...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку