Pascal. Мозг уже плавится, помогите, пожалуйста, еще куча задач решить надо...
Дана строка и число. Преобразовать строку, чтобы ее длина стала равна данному числу по следующему алгоритму. Если длина строки больше числа, удалить с конца «лишние символы». Если меньше, добавить в конец «!».
Дана строка и число. Преобразовать строку, чтобы ее длина стала равна данному числу по следующему алгоритму. Если длина строки больше числа, удалить с конца «лишние символы». Если меньше, добавить в конец «!».
More Questions From This User See All
Answers & Comments
begin
readln(s);
readln(k);
l:=length(s);
if k<l then delete(s,k+1,l-k)
else for i:=l+1 to k do s:=s+'!';
writeln(s);
end.
Пример 1:
abcdefgh
10
abcdefgh!!
Пример 2:
abcdefgh
5
abcde
Verified answer
Beginvar 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.