10 классСоставьте программку, дозволяющую ввести фамилию, имя и отчество учащегося,

10 класс
Составьте программку, дозволяющую ввести фамилию, имя и отчество учащегося, разделенные пробелом, и вывести фамилию и инициалы.
Пример ввода:
Иванов Сергей Михайлович строчка s
Пример вывода:
Иванов С. М.
Паскаль

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

var

str: string;

i,k: integer;

begin

write('Введите фамилию, имя и отчество: ');

readln(str);

for i:=1 to length(str) do

begin

if (str[i]lt;gt;' ')and(k=0) then

write(str[i]) else

if str[i]=' ' then

begin

inc(k);

write(' ',str[i+1],'.');

end;

end;

readln;

end.


пробуй эту программку.

Кира Овсей
Учительница сходу усвоит , что списано
Агата Агрютенкова
У нас можно использовать LengthCopyDeleteInsertPos
Сусыкин Николай
Ну так это в условии задания указывать, что такие ограничения.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт