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

Вкаждом из примеров указано четыре объекта.три из них вошли в одну группу в некоторой классификации,а один объект - лишний.укажите,по какому свойству выполнялась классификация в каждом примере и какой объект а)днепр,южный буг,амазонка,ворскла; б)хмельницкий,днепропетровск,харьков,кривой рог; в)украина,россия,болгария,сша; г)стол,диван,окно,шкаф: придумайте сами аналогичные ,ато поставят 2

👇
Ответ:
А) Амазонка; реки Украины
б) Кривой Рог; административные центры
в) США; Евразия
г) окно; мебель
Пример:
Монитор, Винчестер, Клавиши, Книга(Книга - лишний)
Хлеб, Йогурт, Макароны, стол(Сьол - лишний)
4,6(75 оценок)
Открыть все ответы
Ответ:
lisafoxxxxxxxx
lisafoxxxxxxxx
09.11.2022
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
const
  КолСтрок=3;
  КолСтолбцов=5;
begin
  var Массив: array [1..КолСтрок,1..КолСтолбцов] of integer;
  var СуммыПоСтрокам: array[1..КолСтолбцов] of integer;
  Writeln('Введите элементы массива (',КолСтрок,',',
    КолСтолбцов,') построчно:');
  for var строка:=1 to КолСтрок do
    for var столбец:=1 to КолСтолбцов do begin
      Read(Массив[строка,столбец]);
      СуммыПоСтрокам[строка]+=Массив[строка,столбец]
      end;
  Writeln('Суммы построчно:');
  for var строка:=1 to КолСтрок do Print(СуммыПоСтрокам[строка])
end.

Тестовое решение
Введите элементы массива (3,5) построчно:
7 -5 13 19 -11
8 23 -15 -6 0
12 -6 -9 0 12
Суммы построчно:
23 10 9
4,6(95 оценок)
Ответ:
79033404606
79033404606
09.11.2022

Объявляем функцию gcd, принимающую два целочисленных параметра и возвращающую их наибольший общий делитель. Здесь это вычисляется при алгоритма Евклида.

Затем для удобства определяем ещё одну функцию gcd3, которая принимает уже три аргумента и, используя указанную в условии формулу и описанную выше функцию gcd, вычисляет НОД от трёх чисел.

В основной части программы просто три числа считываются с клавиатуры и выводится ответ.

Код (PascalABC.NET v3.6.2316):

function gcd(a, b: integer): integer;

begin

 while a * b <> 0 do

   (a, b) := (b, a mod b);

 Result := a + b

end;

function gcd3(a, b, c: integer) := gcd(gcd(a, b), c);

begin

 var (a, b, c) := ReadInteger3;

 print(gcd3(a, b, c))

end.

Пример ввода:

10 40 20

Пример вывода:

10

4,5(83 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ