Как вывести первые иницыалы фамилии,имени,отчества в паскале
Как вывести 1-ые иницыалы фамилии,имени,отчества в паскале
Задать свой вопрос
Роман Халипов
для тебя написать пограмму либо сказать ?)))
2 ответа
Аделина Терешонкова
Var
s:string;
i: integer;
begin
readln(s);
s:=' '+s;
For i:=1 to length(s) do
if s[i] = ' ' then
Write(s[i+1]);
end.
s:string;
i: integer;
begin
readln(s);
s:=' '+s;
For i:=1 to length(s) do
if s[i] = ' ' then
Write(s[i+1]);
end.
Zamaleev Ruslan
Выдает
Antonina
ИКС
Юрка Разумов
Можно сделать чтоб после букв еще точуи выводила
Roman
либо пробелы
Daniil Shibarshov
сделай точки делов-то ... А то будут инициалы КГБ )))
Вадик Анфалов
Ну я теснее ркдактировать не могу в этом неувязка
Oleg Gorylev
если автор вопроса хоть немного знает Паскаль, то без проблем добавит вывод точки, после каждоц буквы
Олег Бращин
Стоит только надеяться
Vjacheslav Baneev
))
Влазнева
Дарья
Ага)
Милана Зобаровская
Program p1;
uses crt;
var s,s2,s3:string;
a:integer;
begin
read(s);
a:= Pos (' ',s);
s2:= copy(s,1,1);
Delete(s,1,a);
s3:=S3+s2+'.';
a:= Pos (' ',s);
s2:= copy(s,1,1);
Delete(s,1,a);
s3:=s3+s2+'.';
s2:= copy(s,1,1);
s3:=s3+s2+'.';
writeln(s3);
end.
uses crt;
var s,s2,s3:string;
a:integer;
begin
read(s);
a:= Pos (' ',s);
s2:= copy(s,1,1);
Delete(s,1,a);
s3:=S3+s2+'.';
a:= Pos (' ',s);
s2:= copy(s,1,1);
Delete(s,1,a);
s3:=s3+s2+'.';
s2:= copy(s,1,1);
s3:=s3+s2+'.';
writeln(s3);
end.
Дарина
Вот команды Pos - отыскать Copy - копировать delete- удалить
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов