СРОЧНО, ПОЖАЛУЙСТА!!!!! паскаль. введите слово с клавиатуры. если длина слова четная, то удалить первую букву, а если нечетная длина, то поменять местами ервую и последнюю буквы
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
9 лет назад
9 лет назад