В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
svetakotelniko
svetakotelniko
14.02.2023 21:16 •  Информатика

Построить блок-схему для:2) Нахождения суммы всех делителей числа, введенного с клавиатуры. 3) Нахождения суммы всех четных и произведения всех нечетных чисел из отрезка, заданного с клавиатуры. 4) Проверки числа, введенного с клавиатуры, на простоту (простое число- число, которое делится ТОЛЬКО на себя​

Показать ответ
Ответ:
Flylama
Flylama
22.01.2022 22:22
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n,p:integer;
  var s:string;
  for var a:=1 to 9 do
    for var b:=0 to 9 do
      for var c:=0 to 9 do begin
        n:=100*a+10*b+c;
        s:=(n*n).ToString.Right(3);
        p:=Pos(a.ToString,s);
        if p>0 then begin
          Delete(s,p,1);
          p:=Pos(b.ToString,s);
          if p>0 then begin
            Delete(s,p,1);
            if s=c.ToString then Write(n,'(',n*n,')',' ')
            end
          end
        end
end.

Результат
205(42025) 376(141376) 421(177241) 625(390625) 963(927369)
0,0(0 оценок)
Ответ:
Zolotareva1981
Zolotareva1981
22.10.2022 22:19

#include <iostream>

#include <iomanip>

#include <ctime>

#define M 5

#define N 5

using namespace std;

int main()

{

   int A[M][N];

   int C[M - 1][N - 1];

   int i, j, min, min_index, zero_cnt = 0;

   setlocale(LC_ALL, "Russian");

   srand(time(0));

   cout << "Исходная матрица: " << endl;

   for (i = 0; i < M; i++)

   {

       for (j = 0; j < N; j++)

       {

           A[i][j] = rand() % 101 - 50;

           cout << setw(4) << A[i][j];

           if ((i == 0) && (j == 0)) min = A[i][j];

           if (A[i][j] < min)

           {

               min_index = i * M + j;

               min = A[i][j];

           }

       }

       cout << endl;

   }

   for (i = 0, j = 0; i < M * N; i++)

       if ((i / M != min_index / M) && (i % M != min_index % M))

       {

           C[0][j] = A[0][i];

           if (C[0][j++] == 0) zero_cnt++;

       }

   cout << "Результат: " << endl;

   for (i = 0; i < M - 1; i++)

   {

       for (j = 0; j < N - 1; j++)

       {

           if (i == 0)

           {

               min = C[i][j];

               C[i][j] = C[M - 2][j];

               C[M - 2][j] = min;

           }

           cout << setw(4) << C[i][j];

       }

       cout << endl;

   }

   cout << "Количество нулей в сформированной матрице: " << zero_cnt;

   return 0;

}

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота