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

3. в таблице ves хранятся данные о весе в килограммах по группе учащихся спортивной школы (ves[1] – вес первого учащегося, ves[2] – вес второго учащегося и т. определите, что будет напечатано в результате выполнения следующего алгоритма. var ves: array[1..14] of integer; i, n: integer; begin
ves[1] : = 25; ves[2] : = 21; ves[3] : = 23; ves[4] : = 28; ves[5] : = 30; ves[6] : = 25; ves[7] : = 31; ves[8] : = 28; ves[9] : = 25; ves[10] : = 28; ves[11] : = 30; ves[12] : = 27; ves[13] : = 26; ves[14] : = 24; n : = 0; for i : = 1 to 14 do begin if ves[i] > 26 then n : = n +
1 end; writeln(n); end.​

👇
Открыть все ответы
Ответ:
timkoa
timkoa
17.12.2022

Объяснение:

No or not?

Grammar > Easily confused words > No or not?

из English Grammar Today

No and not are the two most common words we use to indicate negation. We use no before a noun phrase:

There’s no address on the envelope.

[parent to child]

No biscuits before dinner!

No decisions have been made.

We use not with any other phrase or clause:

It’s not often that you stop and think about the way you breathe.

Not suitable for children under 15.

Not surprisingly, it was a tense match but eventually the more experienced Australians won.

A:

Do you go cycling all year round?

B:

Not in the winter.

4,8(31 оценок)
Ответ:
iraapukhtina7
iraapukhtina7
17.12.2022
Без проверки полагаем, что по заданным координатам точек можно построить треугольники.

//PascalABC.Net 3.0, сборка 1111
type
  Point=record
  x,y:double
  end;

function TriangleSquare(A,B,C:Point):double;
begin
  Result:=0.5*abs(A.x*(B.y-C.y)+B.x*(C.y-A.y)+C.x*(A.y-B.y))
end;

procedure GetPoint(c:char; var A:Point);
begin
  Write('Введите координаты точки ',c,': ');
  Readln(A.x,A.y)
end;

var
  A:array['A'..'F'] of Point;
  i:'A'..'F';
  s1,s2:double;
begin
  for i:='A' to 'F' do GetPoint(i,A[i]);
  s1:=TriangleSquare(A['A'],A['B'],A['C']);
  s2:=TriangleSquare(A['D'],A['E'],A['F']);
  if s1>s2 then Writeln('Площадь первого треугольника больше')
  else
    if s2>s1 then Writeln('Площадь второго треугольника больше')
    else Writeln('Площади треугольников равны')
end.

Тестовое решение:
Введите координаты точки A: -4 3.7
Введите координаты точки B: -6.3 0
Введите координаты точки C: 10.2 5.93
Введите координаты точки D: 7.143 8.1
Введите координаты точки E: -6 -3
Введите координаты точки F: 7.4 -5.7
Площадь второго треугольника больше
4,8(90 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ