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

Втаб­ли­це dat хра­нят­ся дан­ные о ко­ли­че­стве уче­ни­ков в клас­сах (dat[1] — ко­ли­че­ство уче­ни­ков в пер­вом классе, dat[2] — во вто­ром и т. определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. текст про­грам­мы на пяти язы­ках программирования. dim dat(11) as integer dim k, m as integer dat(1) = 20: dat(2) = 27 dat(3) = 19: dat(4) = 28 dat(5) = 26: dat(6) = 22 dat(7) = 24: dat(8) = 28 dat(9) = 26: dat(10) = 21 dat(11) = 27 m = 0; for k = 1 to 11 if dat(k) < 25 then m = dat(k) endif next k print m dat = [20, 27, 19, 28, 26, 22, 24, 28, 26, 21, 27] m = 0 for k in range(11): if dat[k] < 25: m = dat[k] print (m) паскаль алгоритмический язык var k, m: integer; dat: array[1..11] of integer; begin dat[1] : = 20; dat[2] : = 27; dat[3] : = 19; dat[4] : = 28; dat[5] : = 26; dat[6] : = 22; dat[7] : = 24; dat[8] : = 28; dat[9] : = 26; dat[10] : = 21; dat[11] : = 27; m : = 0; for k : = 1 to 11 do if dat[k] < 25 then begin m : = dat[k]; end; writeln(m); end. алг нач цел­таб dat[1: 11] цел k, m dat[1] : = 20 dat[2] : = 27 dat[3] : = 19 dat[4] : = 28 dat[5] : = 26 dat[6] : = 22 dat[7] : = 24 dat[8] : = 28 dat[9] : = 26 dat[10] : = 21 dat[11] : = 27 m : = 0 нц для k от 1 до 11 если dat[k] < 25 то m : = dat[k] все кц вывод m кон с++ #include using namespace std; int main() { int dat[11] = {20, 27, 19, 28, 26, 22, 24, 28, 26, 21, 27}; int m = 0; for (int k = 0; k < 11; k++) if (dat[k] < 25) { m = dat[k]; } cout < < m; return 0; }

👇
Открыть все ответы
Ответ:
Аnuk
Аnuk
04.11.2020
Не самый лёгкий, но работающий

const  n = 10000;//Не изменяемая по ходу программы переменная
var  a: array[1..n] of integer;  b: array[1..10]of integer;  c: array[1..10]of integer;  i, s, v: integer;
begin  for i := 1 to 10 do //Заполнение массива с числами от 1 до 10    c[i] := i;  for i := 1 to n do //Заполнение массива    a[i] := random(10) + 1; //Делается для того чтобы в массиве не было нулей  for i := 1 to n do    case a[i] of      1: b[1] := b[1] + 1;      2: b[2] := b[2] + 1;      3: b[3] := b[3] + 1;      4: b[4] := b[4] + 1;      5: b[5] := b[5] + 1;      6: b[6] := b[6] + 1;      7: b[7] := b[7] + 1;      8: b[8] := b[8] + 1;      9: b[9] := b[9] + 1;      10: b[10] := b[10] + 1;    End;    for i := 1 to 10 do    for s := 1 to 9 do      if b[s] > b[s + 1] then begin        v := b[s];        b[s] := b[s + 1];        b[s + 1] := v;        v := c[s];        c[s] := c[s + 1];        c[s + 1] := v;      end;  writeln(c[10], ' - их ', b[10]);    end.
4,4(82 оценок)
Ответ:
aleksandr7899
aleksandr7899
04.11.2020
Если у нас есть координаты этих вершин на плоскости вида (x; y), то
A(x1,y1)
B(x2,y2)
C(x3,y3)

program q;
var x1,x2,y1,y2,x3,y3:integer;
ab,ac,alp,bet,alfa,s:real;
begin
write('введите координаты точки A: ');
read(x1);
readln(y1);
write('введите координаты точки B: ');
read(x2);
readln(y2);
write('введите координаты точки C: ');
read(x3);
readln(y3);
ab:=sqrt(sqr(x2-x1)+sqr(y2-y1));
ac:=sqrt(sqr(x3-x1)+sqr(y3-y1));
alp:=arctan((y2-y1)/(x2-x1));
bet:=arctan((y3-y1)/(x3-x1));
alfa:=bet*2-alp;
s:=sin(alfa)*(ab*ac)/2;
writeln('площадь треугольника=',s);
readln
end.
4,8(66 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ