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

Даны длины 2 катетов a - d - прямоугольного треугольника определить периметр треугольника, блок - схему нарисовать, а равно 3 д равно 4

👇
Открыть все ответы
Ответ:
карольчик1
карольчик1
31.08.2021
int n = 5, x = n - 1, y = n, d = -1, r = 25, a[10][10]; // тут собственно сама
матрица, n - длина
// х,у - координаты ячейки, d - шаг =+1 при движении вправо и вниз, = -1
при движении влево и вверх
// r - число в ячейке
for (int i = x; i >= 0; d *= -1) // тут меняем знак
{
for (int j = i; j >= 0; --j) a[x][y += d] = r--; // двигаемся вправо
for (int j = --i; j >= 0; --j) a[x += d][y] = r--; // двигаемся вверх
}
for (int i = 0; i<n; i++) // тут все просто циклы для вывода матрицы
{
for (int j = 0; j<n; j++)
{
printf("%3d ", a[i][j]);
}
cout << "\n";
}
4,7(59 оценок)
Ответ:
сархан2007
сархан2007
31.08.2021
// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Введите 70 целых чисел:',70);
  var l:=a.Zip(a[1:],(x,y)->(x>y)).All(x->x=true);
  Writeln('l=',l)
end.

Примеры
Введите 70 целых чисел: 95 91 89 87 82 81 80 75 74 73 72 66 62 59 56 54 51 49 48 47 43 39 35 34 32 31 28 26 16 11 10 9 -2 -3 -5 -8 -9 -17 -20 -21 -23 -25 -26 -28 -29 -30 -31 -34 -35 -36 -38 -39 -40 -45 -54 -55 -59 -63 -64 -65 -66 -68 -69 -70 -74 -75 -85 -89 -92 -95
l=True

Введите 70 целых чисел: 95 91 89 87 82 81 80 75 74 73 72 66 62 59 56 54 51 49 48 47 43 39 35 34 32 31 28 26 16 11 10 9 -2 -3 -5 -8 -9 -17 -20 -21 -23 -25 -26 -28 -29 -30 -31 -34 -35 -36 -38 -39 -40 -45 -54 -55 -59 -63 -64 -65 -66 -68 -69 -70 -44 -75 -85 -89 -92 -95
l=False
4,4(56 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ