Предмет: Информатика,
автор: greed15
ПАСКАЛЬ
Ввести имя, отчество и фамилию. Поменять имя и отчество местами (через тип данных string) "Отчество, имя и фамилия"
Ни типо пишешь в графу: юрий сергеевич кобылкин, а оно исправляет на сергеевич юрий кобылкин
Ответы
Автор ответа:
1
PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString.ToWords;
Swap(a[0],a[1]); a.Println
end.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString.ToWords;
Swap(a[0],a[1]); a.Println
end.
greed15:
Уважаемый будьте так любезны написать код на free pascal!
Уважаемый, нужно указывать желаемый диалект в вопросе, а не после получения ответа! Учитесь уважать чужой труд, несмотря на то, что его результаты Вам достаются бесплатно.
Труд написать 2 строчки?
И по поводу результатов 25 баллов
В данной ситуации Вы не имеете права рассуждать о чужом труде уже хотя бы потому, что сами неспособны эти две строки ни написать, ни понять, как теперь выяснилось. И ведете себя при этом, как зарвавшийся нахал.
Порядочные люди, получив ответ, даже если он не соответствует их ожиданиям (по их собственной вине) говорят "спасибо".
Да какие проблемы?
var
s, fam, im, ot: string;
k: integer;
begin
readln(s);
//s := 'Иванов Иван Иванович';
writeln('Длина: ', Length(s));
k := pos(' ', s);
fam := copy(s, 1, k);
delete(s, 1, k);
k := pos(' ', s);
im := copy(s, 1, k);
delete(s, 1, k);
ot := s;
writeln('Отчество: ', ot);
writeln('Имя: ', im);
writeln('Фамилия: ', fam);
end.
s, fam, im, ot: string;
k: integer;
begin
readln(s);
//s := 'Иванов Иван Иванович';
writeln('Длина: ', Length(s));
k := pos(' ', s);
fam := copy(s, 1, k);
delete(s, 1, k);
k := pos(' ', s);
im := copy(s, 1, k);
delete(s, 1, k);
ot := s;
writeln('Отчество: ', ot);
writeln('Имя: ', im);
writeln('Фамилия: ', fam);
end.
Похожие вопросы
Предмет: Английский язык,
автор: anahitmartirosyantat
Предмет: Английский язык,
автор: densforme
Предмет: Математика,
автор: makisgamer2009
Предмет: Математика,
автор: aselya1986t
Предмет: Алгебра,
автор: victoria2298tor