На носителе объемом 300 Мбайт размещены изображения, каждое из которых занимает 200 Кбайт. На просмотр всех изображений ушло 25 мин. Каждое изображение просматривалось: а)1 мин
б)1 с
в)менее 1 с
г)более 1 мин

Объяснение:

Узнаем сколько кбайтов в 300 мб делим на 200и делим на 25

ответ : 1 секунда

var i: integer;

begin

for i: =1 to 1000 do

if (i mod 3=0) or (i mod 7=0) then write(i);

end.

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.