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

Рассказ божьей коровки от моего лица

👇
Ответ:
natik045
natik045
28.02.2023
Меня зовут божья коровка. Я маленькая и меня незаметно. Сплю я на листосках деревьев. Моя спинка красного цвета с черными пятнами.
4,6(90 оценок)
Ответ:
Lika39211
Lika39211
28.02.2023
Я божья коровка.меня почти не кто не видит.и бывает на меня наступают.у меня такая красивая спинка:она полностью красная с белыми пятнышками.люди не наступайте на меня я же красивая!
4,4(71 оценок)
Открыть все ответы
Ответ:
lordd007
lordd007
28.02.2023
Var
   X,Y,K:integer;
   E,p:real;
Begin
Write('Сколько яблок в наличии: ');ReadLn(X);
Write('Сколько человек: ');ReadLn(Y);
Write('Сколько долларов за одно яблоко: ');ReadLn(E);
Write('Сколько рублей за один доллар: ');ReadLn(p);
if X mod 5 <> 0 then K:=X+5-(X mod 5)
else K:=X;
While K/Y<1.66 do K:=K+5;
WriteLn('Требуемое количество яблок: ',K);
WriteLn('Столько яблок придётся докупить: ',K-X);
WriteLn('Стоимость докупленных яблок: ',(K-X)*E*p:0:2,' руб.');
End.

Пример:

Сколько яблок в наличии: 1
Сколько человек: 3
Сколько долларов за одно яблоко: 50
Сколько рублей за один доллар: 0.05
Требуемое количество яблок: 5
Столько яблок придётся докупить: 4
Стоимость докупленных яблок: 10.00 руб.
4,4(64 оценок)
Ответ:
buckubarnes17
buckubarnes17
28.02.2023

ответ:Объясненигтипа того

функция ArcCos(const X : Extended) : расширенный; перегрузка;

функция ArcCos(const X : Double) : Double; перегрузка;

функция ArcCos(const X : Single) : Single; перегрузка;

{ IN: |X| }

функция ArcSin(const X : Extended) : Расширенная; перегрузка;

функция ArcSin(const X : Double) : Double; перегрузка;

функция ArcSin(const X : Single) : Single; перегрузка;

{ ArcTan2 вычисляет ArcTan(Y/X) и возвращает угол в правильном квадранте.

IN: |Y| < 2^64, |X| < 2^64, X <> 0 OUT: [-PI..PI] радианы }

функция ArcTan2(const Y, X: Extended): Extended;

{ SinCos в 2 раза быстрее, чем вызов Sin и Cos отдельно для одного и того же угла }

процедура SinCos(const Theta: Extended; var Sin, Cos: Extended) регистр;

функция Tan(const X: Extended): Extended;

функция Cotan(const X: Extended): Extended; { 1 / tan(X), X <> 0 }

функция Secant(const X: Extended): Extended; { 1 / cos(X) }

функция Cosecant(const X: Extended): Extended; { 1 / sin(X) }

функция Hypot(const X, Y: Extended): Extended; { Sqrt(X**2 + Y**2) }

{ Процедуры преобразования угловых единиц измерения }

функция RadToDeg(const Radians: Extended): Extended; inline; { Degrees := Radians * 180 / PI }

функция RadToGrad(const Radians: Extended): Extended; inline; { Grads := Radians * 200 / PI }

функция RadToCycle(const Radians: Extended): Extended; inline; { Cycles := Radians / 2PI }

функция DegToRad(const Degrees: Extended): Extended; inline; { радианы := Градусы * PI / 180}

function DegToGrad(const Degrees: Extended): Extended;

function DegToCycle(const Degrees: Extended): Extended;

function GradToRad(const Grads: Extended): Extended; inline;    { Radians := Grads * PI / 200 }

функция GradToDeg(const Grads: Extended): Extended;

функция GradToCycle(const Grads: Extended): Extended;

функция CycleToRad(const Cycles: Extended): Extended; inline; { Radians := Cycles * 2PI }

функция CycleToDeg(const Cycles: Extended): Extended;

функция CycleToGrad(const Cycles: Extended): Extended;

{ Гиперболические функции и обратные }

функция Cot(const X: Extended): Extended; inline; { псевдоним для Cotan }

функция Sec(const X: Extended): Extended; inline; { псевдоним для секущего }

функция Csc(const X: Extended): Extended; inline; { псевдоним для Cosecant }

функция Cosh(const X: Extended): Extended;

функция Sinh(const X: Extended): Расширенная;

функция Tanh(const X: Extended): Расширенная;

функция CotH(const X: Extended): Extended; inline;

функция SecH(const X: Extended): Extended; inline;

функция CscH(const X: Extended): Расширенная; встроенная;

функция ArcCot(const X: Extended): Extended; { IN: X <> 0 }

функция ArcSec(const X: Extended): Extended; { IN: X <> 0 }

функция ArcCsc(const X: Extended): Extended; { IN: X <> 0 }

функция ArcCosh(const X: Extended): Extended; { IN: X >= 1 }

функция ArcSinh(const X: Extended): Расширенная;

функция ArcTanh(const X: Extended): Extended; { IN: |X| }

функция ArcCotH(const X: Extended): Extended; { IN: X <> 0 }

функция ArcSecH(const X: Extended): Extended; { IN: X <> 0 }

функция ArcCscH(const X: Extended): Extended; { IN: X <> 0 }

{ Логарифмические функции }

функция LnXP1(const X: Extended): Extended; { Ln(X + 1), точная для X вблизи нуля }

function Log10(const X: Extended): Extended;                    { Log base 10 of X }

function Log2(const X: Extended): Extended;                      { Log base 2 of X }

function LogN(const Base, X: Extended): Extended;                { Log base N of X }

{ Exponential functions }

{ IntPower: Raise base to an integral power.  Fast. }

function IntPower(const Base: Extended; const Exponent: Integer): Extended register;

{ Power: Raise base to any power.

For fractional exponents, or |exponents| > MaxInt, base must be > 0. }

function Power(const Base, Exponent: Extended): Extended; overload;

function Power(const Base, Exponent: Double): Double; overload;

function Power(const Base, Exponent: Single): Single; overloaет  он по

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