ЧТО ДЕЛАЕТ это программа: Var s:string; i,n:integer;
Begin
Write(‘введите текст ‘);
readln(s);
n:=0; for i:=1 to length(s) do
if s[i]='.'
then n:=n+1;
Writeln('n=', n);
End.

Question

Информатика: ЧТО ДЕЛАЕТ это программа: Var s:string; i,n:integer; Begin Write(‘введите текст ‘); readln(s); n:=0; for i:=1 to length(s) do if s[i]= . then n:=n+1; Writeln( n= , n); End.

Biszkopt99 · Answer

Ищет количество точек в строке и выводит на экран.

Объяснение:

Например введено Театр. Рамка. Снег.

Выведет на экран число 3

ЧТО ДЕЛАЕТ это программа: Var s:string; i,n:integer; Begin Write(‘введите текст ‘); readln(s); n:=0; for i:=1 to length(s) do if s[i]='.' then n:=n+1; Writeln('n=', n); End.

ЧТО ДЕЛАЕТ это программа: Var s:string; i,n:integer;
Begin
Write(‘введите текст ‘);
readln(s);
n:=0; for i:=1 to length(s) do
if s[i]='.'
then n:=n+1;
Writeln('n=', n);
End.