Что будет выведено в результате выполнения: А: = 'ЭЛЕКТРОСТАНЦИЯ'; WRITELN (COPY (А, 2,...

Question

Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';

WRITELN (COPY (А, 2, 3) + COPY (A, 12, 3) ); ?



Определите результат выполнения:
С: = ' ЛЕФОРТОВО' ;

F: = LENGTH (С) + LENGTH (С); ?



Из слова ИНФОРМАТИКА получено слово ФОРМАТ. Вставьте пропущенные значения
COPY('ИНФОРМАТИКА', ,).



Что будет выведено в результате выполнения:
WRITELN ('24 + 24 =', 24 + 24)?



Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';

WRITELN(COPY(A,1,7)); ? Дам 20 баллов за полный ответ

Answer 1

Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN (COPY (А, 2, 3) + COPY (A, 12, 3) ); ?

ЛЕКЦИЯ

Определите результат выполнения:
С: = ' ЛЕФОРТОВО' ;
F: = LENGTH (С) + LENGTH (С); ?

Переменной F присвоит значение 20

Из слова ИНФОРМАТИКА получено слово ФОРМАТ. Вставьте пропущенные значения
COPY('ИНФОРМАТИКА', ,).

COPY('ИНФОРМАТИКА',3 ,6)

Что будет выведено в результате выполнения:
WRITELN ('24 + 24 =', 24 + 24)?

24 + 24 =48

Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN(COPY(A,1,7));

ЭЛЕКТРО

Comments

Program E2_2;

Var a: Array [1..8] Of Integer;

s, k: Integer;

Begin

For k := 1 To 8 Do Readln (a[k]);

s := 0;

For k := 1 To 8 Do

If a[k] < 0 Then s := s + a[k];

Writeln (s)

End.

в записи оператора s := s + a[k] была допущена ошибка - вместо него был записан оператор s := s + 1. Каким оказался ответ после исполнения неверной программы, если в качестве элементов массива были введены числа (-1, 3, -2, 4, -5, 6, -7, 8)?

---

поможете решить

---

заранее огромное спасибо

---

Ответ: 4. Если a[k] < 0 то s := s + 1 - считаем отрицательные элементы массива.

---

спасибо