Набрать и запустить данные программы - 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.

Объяснение кода листинга программы

  1. Объявлены две переменные: s и b, типа string.
  2. Запускается процедура ClrScr, которая очищает экран.
  3. Значение переменной s устанавливается равным '22 Г±ГҐГòÿáðÿ - äåГГј îñåГГГҐГЈГ® Г°ГГўГîäåГ*Г±ГІГўГЁГї.'.
  4. Значение переменной b устанавливается равным копии первых 8 символов переменной s, начиная с 20-го символа.
  5. Выводится значение переменной s.
  6. Выводится значение переменной b.
  7. Программа ожидает нажатия клавиши с помощью функции readkey.

Оцени полезность:

11   голосов , оценка 4.182 из 5
Похожие ответы