Составьте программу, которая определяет количество символов ‘!’ в тексте
Составьте программу, которая определяет количество символов ‘!’ в тексте
Гость
Ответ(ы) на вопрос:
Гостьvar s:string; i,k:integer;
begin
writeln('Введите строку');
readln(s);
k:=0;
for i:=1 to length(s)
do if s[i]='!' then k:=k+1;
writeln('k=',k);
end.
Не нашли ответ?
Похожие вопросы