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

Задача5. ( ) Напишите функцию, которая на входе принимает список целых чисел и возвращает True, если цифры в порядке возрастания. В противном случае, верните False.
Example:
f([1, 1, 2,3, 4, 5, 45])→True
f([1, 2, 5, 3, 1])→False
Задача6. ( )
У вас есть положительное число, состоящее из 6 и 9. Вы можете изменить одну любую цифру числа (6 на 9 или 9 на 6). Напишите функцию, которая принимает целое число и возвращает максимально возможное значение числа, после подобной перестановки.
Пример:
f(6666)→9666
f(99669)→99969

👇
Ответ:
иортььо
иортььо
06.07.2020

1.False

2.True

true true and the bus into town is your next holiday and

4,8(13 оценок)
Ответ:
Ник13743803
Ник13743803
06.07.2020

Task 5. JS code.

function FalseOrTrue (f) {

  let CurrentValue = 1;

  for (let i = 0; f[i] < f[CurrentValue]; i++ ) {

          return True

     }

if (f[i] > f[CurrentValue])  {

             return False

     }

    CurrentValue++;

}

Объяснение:

4,5(45 оценок)
Открыть все ответы
Ответ:
KimSuho01
KimSuho01
06.07.2020

===== PascalABC.NET =====

function GCD(a, b: integer): integer;// НОД

begin

 while b <> 0 do

 begin

   a := a mod b;

   Swap(a, b)

 end;

 Result := a

end;

procedure RedFrac(var a, b: integer);// сокращение дроби

begin

 var sgna := Sign(a); // мы должны учитывать знак!

 var sgnb := Sign(b); // мы должны учитывать знак!

 a := Abs(a);

 b := Abs(b);

 var d := GCD(a, b);

 a := (a div d) * sgna;

 b := (b div d) * sgnb

end;

begin

 var (p1, q1) :=

     ReadInteger2('Дробь 1. Введите числитель и знаменатель:');

 var (p2, q2) :=

     ReadInteger2('Дробь 2. Введите числитель и знаменатель:');

 var p3 := p1 * q1 + p2 * q2;

 var q3 := q1 * q2;

 RedFrac(p3, q3);

 Println(p3, '/', q3)

end.


Составьте программу сложения двух простых дробей. результат должен быть несократимой дробью. использ
4,6(73 оценок)
Ответ:
katkuatova
katkuatova
06.07.2020
Type
  mass = array[1..10, 1..10] of real;

var
  a, b, c: mass;
  n, m, i, j, n1, m1: integer;

procedure MatrA(var a: mass);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
    begin
      writeln('a[', i, ',', j, ']: ');
      readln(a[i, j])
    end
end;

procedure MatrB(var b: mass);
var
  i, j: integer;
begin
  for i := 1 to n1 do
    for j := 1 to m1 do
    begin
      writeln('b[', i, ',', j, ']: ');
      readln(b[i, j])
    end
end;

procedure Sum(a, b: mass; var c: mass);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      c[i, j] := a[i, j] + b[i, j];
end;

begin
  writeln('Введите n,m матрицы A');
  readln(n, m);
  MatrA(a);
  writeln('Введите n,m матрицы B');
  readln(n1, m1);
  MatrB(b);
  if (n1 <> n) and (m1 <> m) then
    writeln('Матрицы сложить нельзя')
  else begin
    Sum(a, b, c);
    writeln('A+B');
    for i := 1 to n do
    begin
      for j := 1 to m do
        write(c[i, j]:1:3, ' ');
      writeln
    end
  end;
  readln;
end.
4,7(97 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ