|
Помогите решить задачи на Паскале
|
|
1. Задана строка символов. Группы символов, разделенные пробелом и не содержащие пробелов внутри себя, будем называть словами. Удалить из каждого слова все последующие вхождения его первой буквы.
2. Задана матрица вещественных чисел А размерности n*n. Поменять местами элементы, расположенные над главной и побочной диагоналями с элементами, расположенными под ними (первую строку с последней, вторую с предпоследней и т.д.). Размерность матрицы и значения ее элементов ввести с клавиатуры.
Максим
|
|
|
|
1.
var
q,a,s:string;
i,p:integer;
begin
readln(s);
repeat begin
p:=pos(' ',s);
q:=copy(s,1,p);
delete(s,1,p);
delete(q,1,1);
a:=a+q;
end;
until p=0;
q:=copy(s,1,length(s));
delete(q,1,1);
a:=a+q;
writeln(a);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
2. Немного не понял, пример ввода-вывода в студию
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Спасибо большое!!!!!!! 2 задачу решать не нужно.
Максим
|
|
|
|
Спасибо принимается в виде повышения репутации ( Зеленый плюсик:) )
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
