Запишите на языке Паскаль следующие условия: а) Число f не равно 14 | б) Число а больше либо равно 190 в) Число W не равно 104 е) произведение чисел уих меньше либо равно произведению d и W. д) Число z больше d г) Число 2 отрицательное ж) сумма чисел w и d меньше 138 3) Число f неположительно

👇

Увидеть ответ

Ответ:

polina686

26.08.2020

а) f<>14

б)a>=190

в)w<>104

е)y*x<=d*w

д)z>d

г)2<0

ж)w+d<138

3) f<=0

4,5(29 оценок)

Открыть все ответы

Ответ:

nikitkanikita1

26.08.2020

Программа векторной графики CorelDRAW 12 вместе с программой растровой графики Corel PHOTO-PAINT 12 и несколькими дополнительными программами составляет пакет графических программ CorelDRAW Graphic Suite 12, разработанный известной фирмой-производителем графических программных продуктов Corel Corporation. CorelDRAW 12 предназначена для разработки макетов документов, в которых преобладает графическая информация, с целью их публикации в качестве типографской продукции и в электронном виде.
Программы, позволяющие обрабатывать векторные объекты наряду с растровыми изображениями и текстовой информацией, обычно называются программами векторной графики. Это название можно отнести и к программе CorelDRAW 12. Вместе с тем, ее функциональные возможности существенно шире, чем у других известных программ подобного типа (Macromedia FreeHand и Adobe Illustrator).
надеюсь это подойдёт. когда то писала такое 5 получила

4,5(23 оценок)

Ответ:

Иваныч71

26.08.2020

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
function SHarm(m:integer):real:=Range(1,m).Select(x->1/x).Sum;

begin
var a:=ReadReal('a=');
var m:=1;
while SHarm(m)<=a do Inc(m);
Writeln('m=',m)
end.

Тестовое решение:
a= 5
m=83

Указанный ряд - это известный в математике расходящийся гармонический ряд. Его приближенное значение суммы можно определить по формуле Эйлера:
$\displaystyle S(m)=\sum_{i=1}^m \frac{1}{i} \approx \ln(m)+C, \quad C\approx 0.577\ 215\ 664\ 902$
Нам требуется определить m, для которого S(m)>a, тогда
$\displayvalue \ln(m)+C\ \textgreater \ a; \ ln(m)\ \textgreater \ a-C \to m\ \textgreater \ e^{a-C}$
Будем искать m, отбрасывая дробную часть полученного результата, а потом делать уточнение путем непосредственного вычисления сумм.

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016

const C=0.577215664902; // Постоянная Эйлера-Маскерони

function SHarm(m:integer):real:=Range(1,m).Select(x->1/x).Sum;

begin
var a:=ReadReal('a=');
var m:=1;
if a<=3 then begin
    while SHarm(m)<=a do Inc(m);
    Writeln('m=',m)
    end
else begin
    var s:real:=Int(exp(a-C));
    if a<10 then begin
      m:=Trunc(s);
      while SHarm(m)<=a do Inc(m);
      Writeln('m=',m)
      end
    else Writeln('m=',s)
    end
end.

В этом случае можно проводить оценочный расчет для больших значений а:

a= 200
m=4.05709150011779E+86

4,7(4 оценок)

Это интересно:

07.06.2020

Отличный способ провести каникулы - морское путешествие! Как правильно подготовиться к нему?...

Хобби-и-рукоделие

18.12.2020

Как быстро размягчить пластилин Playdough: 5 простых способов...

Кулинария-и-гостеприимство

03.04.2023

Узнай, как сделать невероятно вкусный и загадочный мартини драгон...

Здоровье

20.07.2020