Pascal. Мозг уже плавится, помогите, пожалуйста, еще куча задач решить надо... Дана...

Question

Pascal. Мозг уже плавится, помогите, пожалуйста, еще куча задач решить надо...

Дана строка и число. Преобразовать строку, чтобы ее длина стала равна данному числу по следующему алгоритму. Если длина строки больше числа, удалить с конца «лишние символы». Если меньше, добавить в конец «!».

Answer 1

Var s:string; k,l,i:integer;
begin
readln(s);
readln(k);
l:=length(s);
if kelse for i:=l+1 to k do s:=s+'!';
writeln(s);
end.

Пример 1:
abcdefgh
10
abcdefgh!!

Пример 2:
abcdefgh
5
abcde

Comments

Спасибо, а то меня уже к val что-то потянуло...

---

Пожалуйста.)

Answer 2

Begin
var i:=1;
var s:string:=readlnstring('Введите слово');
var k:integer:=readlninteger('Введите число');
if k>length(s) then
for i:=1 to k-length(s) do 
s+='!' else 
for i:=length(s) downto length(s)-k+1 do
delete(s,i,1);
writeln(s);
end.