Question

СРОЧНО ! Объясните подробно, что делает эта программа ?? var s: string; i,n: integer; begin write('Введите строку: '); readln(s); n:=length(s); for i:=1 to n do begin if s[i]=':' then s[i]='.'; if s[i]='!' then s[i]='.'; end; writeln(s); end.

Answer 1

Да ничего волшебного она не делает.
Принимает введенную с клавиатуры строку произвольных символов, затем вычисляет её длину n. Далее программа просматривает эту строку и заменяет встретившиеся двоеточия и восклицательные знаки на точки. И получившаяся в результате этих замен строка выводится на экран.

Answer 2

Данная программа выполняет следующие действия:

1. Объявляется переменная s типа string, а также переменные i и n типа integer.

2. Пользователю выводится сообщение "Введите строку: " с помощью процедуры write.

3. Вводится строка с клавиатуры и присваивается переменной s с помощью процедуры readln.

4. Вычисляется длина строки и присваивается переменной n с помощью функции length(s).

5. Выполняется цикл for от 1 до n, где переменная i принимает значения от 1 до n с шагом 1.

6. Внутри цикла проверяется каждый символ строки s. Если символ равен двоеточию ':', то он заменяется на точку '.'. Если символ равен восклицательному знаку '!', то он также заменяется на точку '.'.

7. После выполнения цикла выводится измененная строка s с помощью процедуры writeln.

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