Предмет: Информатика, автор: Tipoumnayanet

ЧТО ДЕЛАЕТ это программа:
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.

Ответы

Автор ответа: fsdfsd1974
0

Ответ:

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

Объяснение:

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

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

Похожие вопросы
Предмет: Математика, автор: alinoshka245884