1024*1024*8/217 = с + 8*1024*1024*8/216=с Просто это время сложишь и будет ответ!
Program n1;
type z = array of integer;
var a: z;
i,n,max: integer;
f: text;
begin
assign(f,'input.txt');
reset(f);
n:=0;
while not eof(f) do
begin
n:=n+1;
setlength(a,n);
read(f,a[n-1]);
end;
close(f);
max:=a[0];
for i:= 1 to n-1 do
if (a[i]>max) and(a[i] mod 2<>0) then max:=a[i];
assign(f,'output.txt');
rewrite(f);
write(f,max);
close(f);
end.
Var
a:array[1..9] of boolean;
cnt,tmp,cur,all, i:integer;
begin
Writeln('Введите "0", чтобы закончить тестирование досрочно');
for i:= 1 to 9 do begin
tmp:= 1 + random(9);
while a[tmp] = true do
tmp:= 1 + random(9);
Write('8 * ',tmp,' = ');
Read(cur); if cur = 0 then break;
all:= all+1;
if cur = 8*tmp then cnt:=cnt+1 else writeln('Wrong: ', 8*tmp);
a[tmp]:=true;
end;
Writeln(cnt,'/',all);
end.
<u>Пример:</u>
Введите "0", чтобы закончить тестирование досрочно
8 * 8 = 64
8 * 3 = 24
8 * 5 = 45
Wrong: 40
8 * 7 = 0
2/3
размер рабочей области (12 задание) надо в inkscape выбирать