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

За до якого засобу можна переглянути записи? ​

👇
Открыть все ответы
Ответ:
teaego
teaego
06.07.2021

например число 123 - 6 комбинаций, 120 - 4 комбинации.

также работает с 4значными

Объяснение:

program prog;

var  num,i,j,tmp:integer;

arr:array [1..4] of integer=(-1,-1,-1,-1);

zero: boolean;

begin

writeln('Input number:');

readln(num);

i:=1;j:=1;zero:=false;

while num<>0 do begin

 tmp:=num mod 10;

 if (tmp<>arr[1]) and (tmp<>arr[2]) and (tmp<>arr[3]) and (tmp<>arr[4]) then begin

  arr[i]:=tmp;

  if (zero=false) and (tmp=0) then zero:=true;

  write(i,':');

  writeln('arr[i]=',arr[i]);

  writeln('num=',num);

  i:=i+1

 end;

 num:=num div 10;

end;

num:=1;tmp:=1;

i:=i-1;

for j:=1 to i do num:=num*j;

if zero=true then begin

 for j:=1 to i-1 do tmp:=tmp*j;

 num:=num-tmp;

end;

writeln('vsego chisel =',num);

end.

4,7(31 оценок)
Ответ:
abdil2017
abdil2017
06.07.2021

#include <iostream>

#include <cstdlib> // обьявление rand()

#include <ctime> // обьявление srand()

#define SIZE 5 // размер массива

int main()

{

using namespace std;

setlocale(LC_ALL, "ru");

srand(time(NULL));

int arr[SIZE][SIZE];

cout << "Начальный массив: \n";

for (unsigned i = 0u; i < SIZE; i++)

{

 int positive = 0;

 for (unsigned j = 0u; j < SIZE; j++)

 {

  arr[i][j] = rand() % 20 - 10;

  cout << arr[i][j] << '\t';

  if (arr[i][j] > 0)

   positive++;

 }

 arr[i][0] = positive;

 cout<<'\n';

}

cout << "\nМассив-результат: \n";

for (unsigned i = 0u; i < SIZE; i++)

{

 for (unsigned j = 0u; j < SIZE; j++)

  cout << arr[i][j] << '\t';

 cout<<'\n';

}

return 0;

}

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