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

Имеются сведения о количестве тракторов, которые должны быть поставлены по плану каждому из 10 колхозов a1,a2, …a10. также имеются сведения о фактической поставке тракторов этим колхозамb1,b2, …b10 . определить, скольким колхозам недопоставлены трактора и напечатать номера этих колхозов. paskal abc

👇
Ответ:
ilya201296
ilya201296
14.02.2020
Const
K = 10;
Var
A,B:array[1..K] of integer;
i,n:integer;
Begin
n:=1;
WriteLn('Кол-во тракторов:');
Write('По плану: ');
For i:= 1 to K do
    Begin
    A[i]:=random(21);
    B[i]:=random(21);
    if A[i]>B[i] then n:=n+1;
    Write(A[i]:2,' ');
    End;
WriteLn;
Write('По факту: ');
For i:= 1 to K do
    Write(B[i]:2,' ');
WriteLn;
WriteLn(n,' - стольки колхозам недопоставили трактора.');
End.
4,5(66 оценок)
Открыть все ответы
Ответ:
Bata2003
Bata2003
14.02.2020

ответы и объяснения

gfhjkmgfhjkm20

Gfhjkmgfhjkm20Старший Спамаут

2) F7 : H11

Объяснение:

Диапазон ячеек - группа ячеек, задаваемая адресами верхней левой и нижней правой ячеек, разлелённых двоеточием (А1:С3).

Адрес ячейки образуется из имени столбца и строки на пересечении которых находится ячейка (А1).

Первый (Al : F4) и третий (12 : K5a) вариант отбрасываем, т.к. AI и 12 не являются адресами ячеек.

Четвертый вариант (D8 : F9) содержит 6 ячейки - D8, D9, Е8, Е9, F8, F9.

Второй вариант (F7 : H11) содержит 15 ячеек - F7, F8, F9, F10, F11, G7, G8, G9, G10, G11, H7, H8, H9, F10, H11.

Нажми, чтобы рассказать другим,

4,4(12 оценок)
Ответ:
alekseyblohinov
alekseyblohinov
14.02.2020
Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны.
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
\displaystyle L_{AB}=\sqrt{(x_B-x_A)^2+(y_B-y_A)^2

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
type
  Point=record
  x,y:real
  end;

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

function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));

begin
  var A,B,C:Point;
  GetPoint('A',A); GetPoint('B',B); GetPoint('C',C);
  var ab:=Dist(A,B);
  var bc:=Dist(B,C);
  var ac:=Dist(A,C);
  if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then
    Writeln('Треугольник существует')
  else Writeln('Треугольник не существует')
end.

Тестовое решение:
Введите координаты точки A: -6.9 -5.3
Введите координаты точки B: 0 11.4
Введите координаты точки C: 9 3
Треугольник существует
4,7(40 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ