New

Дан текст Составьте программу нахождения количества точек в этом тексте

Дан текст Составьте программу нахождения количества точек в этом тексте

  • Var s:string; k,i: integer;
    begin
    writeln(Введите строку );
    readln(s);
    k:=0;
    for i:=1 to length(s) do
    if si=. then k:=k+1;
    writeln(Количество точек в строке = ,k);
    end.
  • Pascal ABC………………
  • Добавить комментарий