Набрать и запустить данные программы - Pascal
Формулировка задачи:
Определить число символов в предложении: 22 сентября - день осеннего равноденствия. Вырезать слово 'осеннего ' и присвоить его переменной b. Вывести предложение и это слово на экран.
Помогите, пожалуйста, это сделать!
Решение задачи: «Набрать и запустить данные программы»
textual
Листинг программы
Uses CRT; var s,b:string; begin ClrScr; s:='22 Г±ГҐГ*òÿáðÿ - äåГ*Гј îñåГ*Г*ГҐГЈГ® Г°Г*ГўГ*îäåГ*Г±ГІГўГЁГї.'; b:=copy(s,20,8); writeln(s); writeln(b); readkey end.
Объяснение кода листинга программы
- Объявлены две переменные: s и b, типа string.
- Запускается процедура ClrScr, которая очищает экран.
- Значение переменной s устанавливается равным '22 Г±ГҐГòÿáðÿ - äåГГј îñåГГГҐГЈГ® Г°ГГўГîäåГ*Г±ГІГўГЁГї.'.
- Значение переменной b устанавливается равным копии первых 8 символов переменной s, начиная с 20-го символа.
- Выводится значение переменной s.
- Выводится значение переменной b.
- Программа ожидает нажатия клавиши с помощью функции readkey.