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.

Answer 1

Ответ:

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

Объяснение:

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

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

Answer 2

Этот код на языке программирования Pascal служит для подсчета количества точек ('.') в введенной строке текста и вывода результата на экран. Вот, что делает каждая строка кода:

1. Var s:string; i,n:integer; - Объявление переменных s (строка для ввода текста), i (счетчик для цикла), и n (счетчик для подсчета точек).

2. Begin - Начало тела программы.

3. Write(‘введите текст ‘); - Вывод на экран строки "введите текст " для указания пользователю ввести текст.

4. readln(s); - Ожидание ввода текста пользователя и сохранение его в переменной s.

5. n:=0; - Инициализация счетчика n нулевым значением.

6. for i:=1 to length(s) do - Начало цикла, который будет выполняться для каждого символа в строке s.

7. if s[i]='.' then n:=n+1; - Проверка, является ли текущий символ точкой. Если да, то увеличивается счетчик n на 1.

8. Writeln('n=', n); - Вывод на экран значения счетчика n.

9. End. - Конец тела программы.

Итак, данная программа просит пользователя ввести текст, а затем подсчитывает количество точек в этом тексте и выводит результат на экран.