Автор Оля задал вопрос в разделе Другие языки и технологии
Задачи в паскале! Решить через тип данных "Строка символов". Packed array или string. и получил лучший ответ
Ответ от Gennady[гуру]
S : String;
1, 2:
n := 0;
while Pos('A', S) > 0 do begin
Inc(n); // подсчет символов 'A'
S[Pos('A', S)] := '*'; // замена 'A' на '*'
end;
WriteLn(n);
3:
for i:=Length(S) downto 1 do if S[i] = 'B' then Delete(S, i, 1);
4,5:
n := 0;
repeat
i := Pos('MA', S);
if i > 0 then begin
Inc(n); // подсчет слогов 'MA'
S[i] := 'T';
end;
until i = 0;
WriteLn(n);
6:
while Pos('TO', S) > 0 do Delete(S, Pos('TO', S), 2);
Остальное (описание переменных, ввод строки и т. д. ) самостоятельно.
Ответ от Krab Bark[гуру]
Непонятно, это задача или задачи? Одна программа или шесть?
Вот первая:
var s:string; i,n:integer;
begin
write('String: '); readln(s);
for i:=1 to length(s) do if s[i]='A' then inc(n);
writeln(n); readln
end.
Непонятно, это задача или задачи? Одна программа или шесть?
Вот первая:
var s:string; i,n:integer;
begin
write('String: '); readln(s);
for i:=1 to length(s) do if s[i]='A' then inc(n);
writeln(n); readln
end.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Задачи в паскале! Решить через тип данных "Строка символов". Packed array или string.
спросили в G Unit Inheritance
какие символы входят в состав алфавита языка паскаль
строчные и прописные латинские буквы:
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
какие символы входят в состав алфавита языка паскаль
строчные и прописные латинские буквы:
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z