Составьте программу, которая дозволяет вывести на экран 1-ое слово строки s

Составьте программу, которая позволяет вывести на экран первое слово строки s . Строка s , состоящая из 2-ух слов, разделённых пробелом, вводится с клавиатуры.

Задать свой вопрос
1 ответ

Program Pr1;
uses crt;
var stroka,tmp:string;
i:integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do if stroka[i]=' ' then tmp:=copy(stroka,1,i-1);
writeln(tmp);
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт