СРОЧНО, ПОЖАЛУЙСТА!!!!! паскаль. введите слово с клавиатуры. если длина слова четная
СРОЧНО, ПОЖАЛУЙСТА!!!!! паскаль. введите слово с клавиатуры. если длина слова четная, то удалить первую букву, а если нечетная длина, то поменять местами ервую и последнюю буквы
Гость
Ответ(ы) на вопрос:
Гость Program stroka;
var s,c,k: string;
n: integer;
begin
readln(s);
n:= ord(s[0]);
if n mod 2 = 0 then
begin
delete(s,1,1);
writeln(s);
end;
if n mod 2 <> 0 then
begin
c:= s[n];
k:=s[1];
delete(s,1,1);
n:= ord(s[0]);
delete(s,n,1);
writeln(c,s,k);
end;
end.
Не нашли ответ?
Похожие вопросы