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

Составьте программу, которая определяет количество символов ‘!’ в тексте

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

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.