Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Составьте программу которая позволяет ввести строки s, затем после каждой буквы "а" вставляет пробел. Pascal ABC, срочно

Ответ оставил Гость

Вот программа:
var s,s1:string; i:integer;
begin
writeln(Введите строку:);
readln(s);
s1:=;
for i:=1 to length(s) do
 if s[i]=а then s1:=s1+s[i]+ else s1:=s1+s[i];
writeln(s1);
end.
Здесь буква "а" - русская