Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN (COPY (А, 2, 3) + COPY (A, 12, 3) ); ?
Определите результат выполнения:
С: = ' ЛЕФОРТОВО' ;
F: = LENGTH (С) + LENGTH (С); ?
Из слова ИНФОРМАТИКА получено слово ФОРМАТ. Вставьте пропущенные значения
COPY('ИНФОРМАТИКА', ,).
Что будет выведено в результате выполнения:
WRITELN ('24 + 24 =', 24 + 24)?
Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN(COPY(A,1,7)); ? Дам 20 баллов за полный ответ
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN (COPY (А, 2, 3) + COPY (A, 12, 3) ); ?
Определите результат выполнения:
С: = ' ЛЕФОРТОВО' ;
F: = LENGTH (С) + LENGTH (С); ?
Из слова ИНФОРМАТИКА получено слово ФОРМАТ. Вставьте пропущенные значения
COPY('ИНФОРМАТИКА', ,).
Что будет выведено в результате выполнения:
WRITELN ('24 + 24 =', 24 + 24)?
Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN(COPY(A,1,7)); ? Дам 20 баллов за полный ответ
More Questions From This User See All
Answers & Comments
А: = 'ЭЛЕКТРОСТАНЦИЯ';
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));
ЭЛЕКТРО
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)?