М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Artyom2005738282
Artyom2005738282
30.01.2020 23:09 •  Информатика

Фильм в контейнере AVI имеет битрейт видео 1542 kbit/s, битрейт аудио – 448 kbit/s. Длительность 1 час 48 минут 12 секунд. Рассчитайте размер файла.

👇
Открыть все ответы
Ответ:
andreyderdi159
andreyderdi159
30.01.2020
Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.
4,4(24 оценок)
Ответ:
karavanov1
karavanov1
30.01.2020

var x,y: integer;

var min,max: Real;

var Z: real;

var step: Real;

begin

   writeln('Введите x: ');

   readln(x);

   writeln('Введите y: ');

   readln(y);

   

   if x<=0 then  

   

   begin

   max:= x+y;

   if max<((x*y)/2) then

   

   begin

       max:= (x*y)/2;

       writeln('Max: ', max);

   end;

   

   else

   begin

   for i:=1 to 0.5 do step:=step*(x*0.5);

   min:= step;

   if(min > (x+y)/2) then  

   min:= (x+y)/2;

   writeln('Min: ', min);

   end;

   end;

   

end.

4,7(2 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ