Составил таблицу, фамилии и номер дома можно выбирать из списка.
Я думаю что 1-5....................... Но это не факт(
<span>Функция length выводит длину строки, а значит количество символов в слове. Ответ 11 ( б ) </span>
Var
x:array [1..10] of integer;
procedure peachat(a:integer);
var
i:integer;
begin
for i:=1 to a do
write (x[i],' ')
end;
var
i,a:integer;
begin
read(a);
for i:=1 to a do x[i]:=i;
peachat(a)
end.
<em><u>Тестовое решение:</u></em>
6
1 2 3 4 5 6