ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Паскаль АБС
1.Символы вводятся с клавиатуры до символа ‘.’ (точка). Вывести символы, предшествующие каждому из введенных. (Ввод: feui56HG Вывод: edth45GF)
Паскаль АБС
1.Символы вводятся с клавиатуры до символа ‘.’ (точка). Вывести символы, предшествующие каждому из введенных. (Ввод: feui56HG Вывод: edth45GF)
More Questions From This User See All
Answers & Comments
var k:char;
s:string;
BEGIN
s:='';
repeat
read(k);
s:=s+chr(ord(k)-1)
until k='.';
delete(s,pos('-',s),1);
writeln(s);
end.