Question

Program prim; Var s, t: string; K: integer; Begin S:= 'Пришла зима”; k:= pos('_', s); s t:= copy(s, k+1, 4); writeln (t); end.​

Answer 1

Ответ:

Программа выведет: Приш

Объяснение:

k = 0 (в строке S:= 'Пришла зима' нет символа '_')

t = Приш (копируем из строки S:= 'Пришла зима' 4 символа начиная с первого)