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.

danilkuzin201    2   01.11.2019 20:04    1