Program words;
var
t: array [0..35] of string;
t2: array [0..1190] of string;
iskomoe: array [0..142614] of string;
s: byte;
s1: longint;
s2: integer; //1190
q: byte;
f1: file of char ;
begin
writeln('сколько символов вы собираетесь использовать? (до 35) ');
read(q);
assign(f1,'russ.txt');
reset(f1);
for s: =0 to q do
begin
readln(t[s]);
end ;
//тут нужно будет сделать новый массив со всеми комбинациями;
//допустим этот массив(массив есть в условиях - t2[s2]) с комбинациями описан выше ;
begin
for s1: =1 to 142614 do readln( f1 ,iskomoe[s1]); тут пишет что нельзя считывать данные этого типа и параметр цикла for в pascalabc.net должен описываться в заголовке цикла
s2: =0;
repeat
s2: =s2+1;
until t2[s2]=iskomoe;
close(f1);
writeln(t2[s2]);
end;
end.
Товарищ Бонч-Бруевич родился 28 июня или 10 июля 1873 года, местом рождения по праву считается город Москва. Бонч-Бруевич родился в семье землемера, выходца из шляхты Могилёвской губернии. К сожалению, дата его смерти - 14 июля 1955, умер также в городе Москва. Похоронен на Новодевичьем кладбище в Москве. По професии - российский революционер, большевик, советский партийный и государственный деятель, этнограф, публицист. Ближайший и фактический секретарь В. И. Ленина. Доктор исторических наук, имеет ученую степень в исторических науках. Брат Михаила Дмитриевича Бонч-Бруевича.
ответ:1) (1 б.) Верные ответы: 3;
2) (1 б.) Верные ответы: 4;
3) (1 б.) Верные ответы: 1; 2;
4) (1 б.) Верные ответы: 3;
5) (1 б.) Верные ответы: 1;
6) (1 б.) Верные ответы: 3;
7) (1 б.) Верные ответы: 4;
8) (1 б.) Верные ответы: 1;
9) (1 б.) Верные ответы: 3;
10) (1 б.) Верные ответы: 3;
11) (1 б.) Верные ответы: 2;
12) (1 б.) Верные ответы: 3;
13) (1 б.) Верные ответы: 4;
14) (1 б.) Верные ответы: 1;
15) (1 б.) Верные ответы: 1; 2;
16) (1 б.) Верные ответы: 1;
17) (1 б.) Верные ответы: 2;
18) (1 б.) Верные ответы: 1;
19) (1 б.) Верные ответы: 3;
20) (1 б.) Верные ответы: 2;
21) (1 б.) Верные ответы: 2;
Объяснение: