Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
87781891293
0 / 0 / 0
Регистрация: 28.02.2013
Сообщений: 40
1

Напечатать вместо имени и отчества инициалы

07.03.2013, 09:45. Просмотров 1341. Ответов 2
Метки нет (Все метки)

2. Заданы фамилия, имя и отчество учащегося, разделенные пробелами. Напишите программу, печатающую фамилию ученика и его инициалы.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.03.2013, 09:45
Ответы с готовыми решениями:

Описать процедуру, которая печатает фамилию и инициалы вместо имя и отчества
Заданы фамилия, имя, отчество учащегося, разделенного пробелами. Описать...

Записи: ввести информацию о студентах и напечатать фамилии и инициалы всех студенток второго курса
Имеется следующая информация о каждом из n студентов: <фамилия>, <имя>,...

Распечатайте все отчества по алфавиту
Помогите доработать Пусть текст предстовляет собой последовательность строк. На...

Определите, есть ли в списке однофамильцы и выведите на экран их имена и отчества
Напишите программу, которая заполняет с клавиатуры массив 3 на 5 фамилиями,...

Вывести фамилии, имена и отчества мастеров с высшим образованием и вычислить их средний стаж.
В анкетах сотрудников некоторого учреждения имеются следующие сведения:...

2
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,712
Записей в блоге: 1
07.03.2013, 10:12 2
Лучший ответ Сообщение было отмечено 87781891293 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
Var s,s1:string;
Begin
    write('Введите Фамилия Имя Отчество: ');readln(s);
    s1:=s1+Copy(s,1,Pos(' ',s)-1)+' '+s[Pos(' ',s)+1]+'.';
    Delete(s,1,Pos(' ',s));Delete(s,1,Pos(' ',s));
    s1:=s1+s[1];
    writeln('Ф.И.О: ',s1);
    readln;
End.
0
Puporev
Модератор
54575 / 42085 / 29057
Регистрация: 18.05.2008
Сообщений: 99,253
07.03.2013, 10:30 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var s,s1:string;
begin
writeln('Введите Фамилию Имя Отчество');
read(s);
s1:=copy(s,1,pos(' ',s)+1);
delete(s,1,pos(' ',s)+1);
delete(s,1,pos(' ',s));
s1:=s1+'. '+s[1]+'.';
write(s1);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.03.2013, 10:30

Hайти и записать вместо x[1] наибольший элемент, а вместо x[2] -наименьший для массива x[1],x[2],..., x[100].
Hайти и записать вместо x наибольший элемент, а вместо x -наименьший для...

Вывести фамилии, имена и отчества всех студентов мужского пола, не сдавших более двух экзаменов
вывести фамилии, имена и отчества всех студентов мужского пола , не сдавших...

Распечатайте все отчества по алфавиту, а также текст, содержащий строки, состоящий только из фамилий и имён
Пусть текст представляет собой последовательность строк. На каждой строке...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru