Natusik1616
11.03.2021 18:53

ОЧЕНЬ , 1)Напишите условие на любом языке программирования для проверки попадания введенной точки А(x,y) в невключающую границы область, ограниченную функциями f1(x)=ln(x), f2(x)=x/2 + 1 и окружностью радиусом 2 и центром в точке (2,0) 2) Сколько ГБ будет занимать видеофайл, с разрешением 1024*860, длительностью 60 секунд с частотой 48 кадров в секунду и 56 битами на кодирование одного пикселя?
3) Инопланетяне с планеты Ромул используют трёхтритное кодирование для латинских букв и некоторого количества дополнительных символов( А=000, В=001, С=002, D=010 и тд) в то время, как инопланетяне с планеты Рема-четырехтритное( А=0000, В=0001, С=0002, D=0010 и тд). В день Х Ремцы отправили Ромуланам некоторое сообщение, которое распознали как «HAMNCUJIBAYVCSGI” . Что за сообщение отправили жители Рема?

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Temosha101010
08.04.2020 10:13
1. Решение "по-взрослому"

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var F:real->real:=x->2*x*x-6*x+8;
  var a,b:real;
  Write('a b= '); Read(a,b);
  Writeln('Min=',Range(a,b,9).Select(x->F(x)).Min)
end.

Пример
a b= -2 6
Min=3.50617283950617

2. Решение "по-школьному" ("дедушкин метод")

function F(x:real):real;
begin
  F:=2*x*x-6*x+8
end;

var
  a,b,y,h,min:real;
  i:integer;
begin
  Write('a b= '); Read(a,b);
  h:=(b-a)/9;
  min:=F(a);
  for i:= 1 to 9 do begin
    y:=F(a+i*h);
    if y<min then min:=y
    end;
  Writeln('Min=',min)
end.

Пример
a b= -2 6
Min=3.50617283950617
0,0(0 оценок)
Ответ:
Danya135evlanov
05.12.2020 05:18
// PascalABC.NET 3.0, сборка 1164 от 11.02.2016
function gcd(a,b:integer):integer;
// Нахождение НОД
var
  i: longint;
begin
  while b <> 0 do begin
    a := a mod b;
    i := b; b := a; a := i
    end;
  Result:=a
end;

begin
  var a:=ReadInteger('a=');
  var b:=ReadInteger('b=');
  var nod:=gcd(a,b);
  if nod>1 then
    WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}',
    a,b,a div nod,b div nod)
  else WritelnFormat('Дробь {0}/{1} несократима',a,b)
end.

Тестовое решение:
a= 23541
b= 335160
Дробь сократима: 23541/335160=59/840
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота