Файл размером 3 мбайт передаётся через некоторое соединение за 5 минут. определите время (в минутах), - id485213620230415 от Нікіта1111 15.04.2023 13:08

Question

Информатика: Файл размером 3 мбайт передаётся через некоторое соединение за 5 минут. определите время (в минутах), за которое можно передать через это же соединение файл размером 6144 кбайт. в ответе укажите одно число – количество минут. единицы измерения писать не нужно.

Нікіта1111 · Accepted Answer

Var a:array[1..7]of integer;
p3,p5,s,i,k,min,n:integer;
srz:real;
begin
p5:=1; p3:=1; min:=25;
for i:=1 to 7 do
begin
read(a[i]);
if a[i]<>0 then
begin
    if a[i] mod 5=0 then p5:=p5*a[i];
   if a[i] mod 3=0 then p3:=p3*a[i];
   if a[i] mod 2=0 then
     begin
   s:=s+a[i];
      k:=k+1;
     end;
   if a[i]<min then
   begin
      min:=a[i];
      n:=i;
     end;
end;
end;
srz:=s/k;
writeln;
write('proizv kratnih trem:',p3,' proizv kratnih peti:',p5,' srednee znachenie chet elementov:',srz,' minimalnoe:',min,' nomer minimalnogo:',n);
end.

MOGZ ответил