Предмет: Информатика,
автор: 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.
Ответы
Автор ответа:
0
Ответ:
Ищет количество точек в строке и выводит на экран.
Объяснение:
Например введено Театр. Рамка. Снег.
Выведет на экран число 3
Похожие вопросы
Предмет: Математика,
автор: alinoshka245884
Предмет: Русский язык,
автор: fopsyk
Предмет: Информатика,
автор: ole4ka210104
Предмет: Обществознание,
автор: ашоттрубошот