На выводе появляется лишний символ - Free Pascal
Формулировка задачи:
Задача
Вводится любое слово, например:
prНа выводе у меня появляется в конце лишний символ m
o
gram Пример вывода: s[3]=o Мое решение:var s1,s2:string;
a:longint;
begin
read (s1);
s2:='o';
a:=pos(s2,s1);
writeln ('s[',a,']=',s2);
end.Решение задачи: «На выводе появляется лишний символ»
textual
Листинг программы
const c='o';
var s: String; p: Integer;
begin
Write('> '); ReadLn(s); p:=Pos(c,s);
if p>0 then WriteLn('s[',p,']=',c)
else WriteLn('Символ ',c,' не найден');
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д