Контрольные задания > Дана программа:
program test_2;
var a, b: string;
begin
a:='программирование';
writeln(copy (a, 1, 2) + copy (a, 15, 2) + copy (a, 7, 1))
end.
В ответе запишите результат выполнения программы (строчными буквами на русском языке без пробелов).
Вопрос:
Дана программа:
program test_2;
var a, b: string;
begin
a:='программирование';
writeln(copy (a, 1, 2) + copy (a, 15, 2) + copy (a, 7, 1))
end.
В ответе запишите результат выполнения программы (строчными буквами на русском языке без пробелов).
Разберем программу по шагам:
1. `a := 'программирование';`: Переменной `a` присваивается строка 'программирование'.
2. `copy(a, 1, 2)`: Из строки `a` извлекаются 2 символа, начиная с позиции 1. Результат: 'пр'.
3. `copy(a, 15, 2)`: Из строки `a` извлекаются 2 символа, начиная с позиции 15. Результат: 'ие'.
4. `copy(a, 7, 1)`: Из строки `a` извлекается 1 символ, начиная с позиции 7. Результат: 'м'.
5. `writeln(copy(a, 1, 2) + copy(a, 15, 2) + copy(a, 7, 1))`: Строки 'пр', 'ие' и 'м' объединяются, и результат выводится на экран.
Итоговый результат: прием