Question

Из слова "форма" получить слово "фирма" 2) Дан текст "картографирования" получить слова ГРАФ, АРТ, РОФ. 3) Сколько раз в заданном условии повторяется буква а.4) Дано предложение ( S) подсчитать количество символов (а).Помогите решить пожалуйста, очень срочно нужно. Прошу((((

Answer 1

Var
s:string;
i,k:integer;
begin
s:='форма';
writeln('Слово: ',s);
s[2]:='и';
writeln('Получили слово: ',s);
s:='картографирования';
writeln('Из слова: ',s);
writeln('получили слова: ', copy(s,6,4),' ',copy(s,2,3), ' ', copy(s,11,2)+s[9]);
writeln('Введите предложение:');
readln(s);
for i:=1 to length(s) do
if (s[i]='А')or(s[i]='а') then k:=k+1;
writeln('В заданном предложении буква а встречается ',k,' раз');
end.