Файл архива занимает 342 мб.сколько полных файлов вместиться на флэшку 2 гб?

1gb = 2^10   mb 2gb=   2^11 mb 2^11 : 342  ≈ 5 полных файлов

Var   n,i,k,d: integer; begin   write('количество чисел='); read(n);   k: =0;   writeln('вводите числа, после каждого числа нажимайте enter');   for i: =1 to n do begin       read(d);       if (d mod 3 = 0) and (d mod 10 = 5) then inc(k)   end;   writeln('количество чисел, удовлетворяющих условию, равно ',k) end. тестовое решение: количество чисел=8 вводите числа, после каждого числа нажимайте enter 537 125 5 35 999 3 1005 75 количество чисел, удовлетворяющих условию, равно 2

//pascalabc.net var   i,m: integer;   a: single; begin   randomize;   for i: =1 to 13 do begin       m: =random(5)+5;       a: =10*random-5;       writeln(m,a: 5: 0)   end end. тестовое решение: 9    -4 6      2 8    -3 8      4 8      4 6      4 6      5 9    -1 8    -2 7      2 8      0 5      2 7      2