1. Информатика
  2. Pascal abc. составьте программу,

Pascal abc. составьте программу, которая позволяет вывести на экран первое слово
строки, состоящей из двух слов, разделенных пробелом. строка вводится
с клавиатуры.​

впапорпорпрорп впапорпорпрорп    1   27.01.2020 10:33    11

Ответы
sgymgjvb sgymgjvb  11.10.2020 03:31

var

 k: integer;

 s: string[50];

 

begin

 Readln(s);

 k := Pos(' ', s);

 Writeln(Copy(s, 1, k - 1))

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ArtemDeineka ArtemDeineka  20.05.2020 05:58
1. Перевести число 86 в двоичную систему счисления:А) 1000110;Б) 1010110;В) 1010111;Г) 1011110;Д) 1110110.2. Укажите диапазон значения целых чисел, если для их хранения используется...
dadmaeva426 dadmaeva426  20.05.2020 05:51
В какие игры на пк можно поиграть игры типа фортнайта и кс го (пубг не предлагайте он тоже мне надоел)...
islamreal99 islamreal99  15.05.2020 11:26
Какие из перечисленных ниже расширений соответствуют текстовому файлу? А) bmp б) gif В) exe Г) bat Д) com Е) txt Ж) doc З) rtf...
erik09hfilya erik09hfilya  15.05.2020 11:26
Нужна Взяв за основу задачу program n_2, составить программу для вычисления формулы k=2m+n...
ENOT234u ENOT234u  30.10.2019 15:57
Игра ним с одной кучей для одного игрока с дополнительным ограничением: можно за один ход взять не больше трёх камней. игрок может попытаться взять больше трёх камней, меньше одного...
нурдаулет24 нурдаулет24  30.10.2019 15:58
Завдання. оформити заголовки в пропонованому тексті.1. завантажте документ історія інтернету.doc, який знаходиться в папціfiles на диску.2. для основного тексту змініть стиль звичайний...
Lena1056 Lena1056  30.10.2019 16:12
Цирковая обезьянка еще не может быть полноценным игроком в ним, но она обучена либо удваивать количество камней в куче, либо добавлять один. напишите программу, подсчитывающую...
azarovanadejdaozzbir azarovanadejdaozzbir  30.10.2019 16:13
Напишите наименьшее число x, для которого истинно высказывание: не (x 45) и не (в числе x нет одинаковых цифр)...
ЛёхаТихонов ЛёхаТихонов  30.10.2019 16:17
Врезультате повреждения двухстороней дискеты 20℅секторов оказались дефектными, что состовляет 73728 байта. какой обьем имеет дискета? ​...
sabinabaigali sabinabaigali  16.02.2021 16:53
Х Программирование линейныхалгоритмов. Урок 1Изучи предложенный программный код иустанови соответствие междупеременными и соответствующимичисловыми значениями, если n = 789.a =...

Популярные вопросы