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

Дан двумерный массив. поменять местами элементы расположенные в правом нижнем и левом верхнем углах. ​

👇
Открыть все ответы
Ответ:
Semev
Semev
22.12.2022
Program Task;
Const N = 5;
Var a: Array [1..N] of LongInt;
    i: Integer;
Function MinDigit(number: LongInt): Integer;
Var digits: Array of Integer;
    num, min, i: Integer;
Begin
    num := number;
While num <> 0 Do
Begin
    num := num Div 10;
    i := i + 1;
End;
    SetLength(digits, i);
    num := number;
For i := 0 To Length(digits) - 1 Do
Begin
    digits[i] := num Mod 10;
    num := num Div 10;End;
For i := 0 To Length(digits) - 1 Do
    If digits[i] < digits[min] Then
    min := i;    Result := digits[min];
End;
Begin
    WriteLn('Введите ', N, ' целых чисел через пробел');
    For i := 1 To N Do
        Read(a[i]);
    For i := 1 To N Do
        Write(MinDigit(a[i]), ' ');
End.
4,4(68 оценок)
Ответ:
nastya123litvin
nastya123litvin
22.12.2022

Python

Объяснение:

код:

import random

n = random.randint(10, 100)

t = []

p = []

for i in range(1, n):

   if n % i == 0:

       i = str(i)

       t += i

       i = int(i)

       for k in range(2, i):

           if i % k == 0:

               i = str(i)

               p += i

               break

t = list(map(int, t))

p = list(map(int, p))

for x in p:

   if x in t:

       t.remove(x)

t.remove(1)

if len(t) == 0:

   t.append(n)

   print(*t)

else:

   s = [str(x) for x in t]

   print('simple', '(', n, ')', '=', *s)

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