Решите в кумир x=ba-корень из a^3+b^2(-a)/b-3 ^-степень , /—деление само решение в одну строку,желательно прислать фото

👇

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

Ответ:

ogh30662

25.12.2021

x:=b*a - sqrt(a**3+b**2*(-a)/b-3)

4,6(40 оценок)

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

Ответ:

Vikohkamy

25.12.2021

Практически во всех языках программирования применяются компоненты, которые называются циклами. Возможно обойтись и без них, но этот подход редко применяется среди программистов, поскольку современные приложения используют пакетную обработку данных. Каждый разработчик программного обеспечения должен решать самостоятельно, стоит ему применять циклы или нет. Специалисты, опираясь на психологию человека, разработали специализированный алгоритм. Если выполнять все его пункты, то результат будет поразительным. Инструкцию также можно использовать для изучения какой-либо другой дисциплины, но в этом случае ее необходимо переделать. Для теории применяется такой алгоритм: Достоинства и недостатки применения циклов. Синтаксис, необходимый для использования циклических операторов. Общая информация о блок-схемах. Абстрактные модели. Далее следует разобрать подробно каждый пункт инструкции. Пропускать их запрещается. Обучаемый потеряет зря время либо сам процесс обучения существенно увеличится. Для начала нужно разобрать основные достоинства и недостатки применения циклов в Турбо Паскале.

Объяснение:

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

Ответ:

Arina001234hh

25.12.2021

1)
var
a:array[1..20] of integer;
index, Min,count, i, n:integer;
begin
Readln(n);
Min:= 81;index:=-1;
For i:= 1 to n do
begin
    a[i]:= random(96) - 15;
    Write(a[i], ' ');
    if Min = a[i] then
      count:= count+1;
    if Min > a[i] then begin
        Min:=a[i];
        index:=i;
        count:=1;
      end;
end;
Writeln;
Writeln('Min = ', Min);
Writeln('Минимумов: ', count, ' их сумма равна ', count*Min);
for i:= n downto 2 do
if (a[i] < 0) and (a[i-1] < 0) then
    begin
      Write('Номера соседних отрицательных эл-в -> ');
      Writeln(i-1, ' ', i);
      break;
    end;
end.

Пример:
20
59 -3 44 -15 60 -3 70 -15 -10 1 -1 -2 21 23 -5 24 45 -10 0 48
Min = -15
Минимумов: 2 их сумма равна -30
Номера соседних отрицательных эл-в -> 11 12

2)

var
a,b:array[1..200] of integer;
i, n,cnt, j, Max:integer;
begin
Readln(n);
Read(a[1]);Max:=a[1];cnt:=1;
For i:= 2 to n do
begin
Read(a[i]);
if a[i] = max then
cnt:= cnt+1;
if a[i] > max then
begin
max:=a[i];
cnt:=1;
end;
end;
j:=1;
for i:=1 to n do
if a[i] < Max then
    begin
      b[j]:=a[i];
      j:= j+1;
    end;
for i:= j to n do
b[i]:=Max;
for i:=1 to n do
Write(b[i], ' ');
end.

Пример:
6
1 5 3 2 5 0
1 3 2 0 5 5

type Info = record
name:string;
unpl:integer;//unemployment
end;

var
a:array[1..40] of Info;
tmp:Info;
i, j:integer;
begin
For i:= 1 to 40 do
begin
    Readln(a[i].name);
    Readln(a[i].unpl);
end;
For i:= 1 to 40 do
for j:= i to 40 do
    if a[i].unpl > a[j].unpl then
      begin
        tmp.name:= a[i].name;
        tmp.unpl:= a[i].unpl;
        a[i].name:=a[j].name;
        a[i].unpl:=a[j].unpl;
        a[j].name:=tmp.name;
        a[j].unpl:=tmp.unpl;
      end;
Writeln('три неблагополучных района:')
Writeln(a[40].name);
Writeln(a[39].name);
Writeln(a[38].name);
Writeln('три наиболее благополучных');
Writeln(a[1].name);
Writeln(a[2].name);
Writeln(a[3].name);
end.

Формат Ввода:
Название района
Безработица

4,6(45 оценок)

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

Здоровье

06.03.2021

Секрет понижения веса: как потерять килограмм в неделю...

Образование-и-коммуникации

19.07.2021

Как преобразовать время из 12-часового в 24-часовой формат...

Стиль-и-уход-за-собой

03.10.2020

10 простых правил ухода за кожей лица в домашних условиях...

Компьютеры-и-электроника