1. даны целые числа s₁, s₂, sₓ. определить: а) сколько раз среди них встречается максимальное; б) сколько раз среди них встречается минимальное. 2. известны данные о количестве людей, живущих в квартире №1, в квартире №2 и т. д. в каком числе квартир проживает больше всего жильцов?

👇

Ответ:

krazy4550

07.06.2022

Int digits[], d,n;
int cnt_min=0; int cnt_max=0;
for(int i=0; i<x; i++) cin >> d;
int d_max = digits[0];
for(int i=0; i<x; i++) { if(d_max < digit[i]) d_max = digit[i];}
int d_min = digits[0];
for(int i=0; i<x; i++) { if(d_min > digit[i]) d_min = digit[i];}
for(int i=0; i<x; i++) { if(d_max < digit[i]) d_max = digit[i];}
for(int i=0; i<x; i++) { if(d_max == digit[i]) cnt_max++;}
for(int i=0; i<x; i++) { if(d_min == digit[i]) cnt_min++;}
cout << "min= " << cnt_min << " max= " << cnt_max << endl;

вторая задача - подумай сам, она почти аналогичная

4,8(62 оценок)

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

Ответ:

sksool0360figf

07.06.2022

Function Otr(Ax, Ay, Bx, By: real): real;
begin
Otr := sqrt(sqr(Ax - Bx) + sqr(Ay - By))
end;

function Perim(Ax, Ay, Bx, By, Cx, Cy: real): real;
begin
Perim := Otr(Ax, Ay, Bx, By) + Otr(Bx, By, Cx, Cy) + Otr(aX, aY, Cx, Cy);
end;

function Area(Ax, Ay, Bx, By, Cx, Cy: real): real;
var
pp: real;
begin
pp := Perim(Ax, Ay, Bx, By, Cx, Cy) / 2;
Area := sqrt(pp * (pp - Otr(Ax, Ay, Bx, By)) * (pp - Otr(Bx, By, Cx, Cy)) *
(pp - Otr(Ax, Ay, Cx, Cy)))
end;

procedure Dist(Px, Py, Ax, Ay, Bx, By: real; var D: real);
begin
D := 2 * Area(Px, Py, Ax, Ay, Bx, By) / Otr(Ax, Ay, Bx, By)
end;

var
Px, Py, Ax, Ay, Bx, By, Cx, Cy: real;
d: real;

begin
writeln('Вводите координаты точкек парами чисел: ');
write('P-> ');
readln(Px, Py);
write('A-> ');
readln(Ax, Ay);
write('B-> ');
readln(Bx, By);
write('C-> ');
readln(Cx, Cy);
writeln;
Dist(Px, Py, Ax, Ay, Bx, By, d);
writeln('Расстояние от Р до АВ равно ', d);
Dist(Px, Py, Cx, Cy, Bx, By, d);
writeln('Расстояние от Р до ВC равно ', d);
Dist(Px, Py, Ax, Ay, Cx, Cy, d);
writeln('Расстояние от Р до АC равно ', d)
end.

Тестовое решение:
Вводите координаты точкек парами чисел:
P-> -3 6
A-> 5 8
B-> 9 -4
C-> 8 -2.5

Расстояние от Р до АВ равно 8.22192191643778
Расстояние от Р до ВC равно 4.43760156980184
Расстояние от Р до АC равно 8.24163383692135

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

Ответ:

звезда0ютуба

07.06.2022

1)Значение величины как и в информатике и математике одинаковы. Величина делится на Постоянные и Переменные.
1. Постоянной называется величина, значение которой не изменяется в процессе выполнения программы.
2. Переменной называется величина, значение которой изменяется в процессе выполнения программы.

2) Существуют три основных типа величины 1.Числовое 2.Символьный 3.Логический.

3) Программа присваивания записывается таким образом := (В языке Pascal).

4) Программа ввода записывается таким образом read(); или readln();-полностью readline(); (В языке Pascal).

5) 1.Программа вывода записывается таким образом write('Любая надпись'); или writeln('Любая надпись'); полностью writeline('Любая надпись'); 2. Программа write или writeln выводит канцоль или в окно вывода то что ты написал в write или в writeln.

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

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

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

30.04.2023

10 советов, как правильно пользоваться ножом для очистки овощей...

Дом-и-сад

31.05.2022

Как выжить при землетрясении: советы экспертов...

Дом-и-сад

05.03.2023

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

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