Question

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

Answer 1

Ответ:

var s1,s2: string;

begin

s1:='тетрадь';

s2:='слон';

writeln (copy(s1,4,3),copy(s2,3,1),copy(s2,1,1),copy(s1,1,1),copy(s1,7,1))

end.

Объяснение:

Задали две строки с требуемыми словами.

Вывели на печать необходимые буквы из этих строк.

Функция Copy(имя строковой переменной; номер символа в этой строке с которого начинается копирование, количество символов которые надо скопировать).

Answer 2

begin

 var (a, b) := ('тетрадь', 'слон');

 var s := a[4:7]+b[3]+b[1]+a[1]+a[7];

 s.Println;

end.

===== PascalABC.NET =====

Answer 3

Для составления программы, которая из слов "тетрадь" и "слон" получает слово "радость", можно использовать следующий алгоритм:

1. Создайте две переменные: одну для слова "тетрадь" и другую для слова "слон".
```python
word1 = "тетрадь"
word2 = "слон"
```

2. Создайте пустую переменную для итогового слова "радость".
```python
result = ""
```

3. Создайте цикл, который пройдет по каждой букве слова "радость" и будет проверять, содержится ли эта буква хотя бы в одном из слов "тетрадь" или "слон".
```python
for letter in "радость":
if letter in word1 or letter in word2:
result += letter
```

4. Напечатайте итоговое слово "радость".
```python
print(result)
```

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

```python
word1 = "тетрадь"
word2 = "слон"
result = ""

for letter in "радость":
if letter in word1 or letter in word2:
result += letter

print(result)
```

При запуске этой программы на экране появится слово "радость".