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

Число делителей имя входного файла: имя выходного файла: ограничение по времени: ограничение по памяти: standard input standard output 2 секунды 256 мегабайт задано число n. требуется найти число от 1 до n, включительно, которое имеет максимальное число положительных целых делителей. например,
если n = 20, то искомое число — 12, у него 6 делителей: 1, 2, 3, 4, 6, 12. формат входных данных на вход подается одно число n (1 ≤ n ≤ 105 ) формат выходных данных выведите на первой строке число от 1 до n, включительно, которое имеет максимальное число делителей. на второй строке выведите число
его делителей. если есть несколько чисел от 1 до n с максимальным числом делителей, выведите любое из них. примеры standard input standard output 20 12 6 #include #include int main() { int n, i, a, max=n, p, k; scanf ("%d %d %d %d %d %d", & n, & i, & a, & max, & p, & k);
do{i=1; i++; } while(i do{k=1; k++; } while(k do{ while(i%k==0); a++; } while(max printf("%d", p); return 0; } что тут неправильно?

👇
Ответ:
алтуша9796
алтуша9796
30.10.2020

#include <stdio.h>

int main()

{

int n, k, a, max=0;

scanf ("%d", &n);

for (int i=1; i<=n; i++){

 k=2;

 for (int j=2; j<=i/2; j++)

   if (i % j == 0) k++;

 if (k>max) {

  a=i; max=k;

 }

}

printf("%d\n%d", a, max);

return 0;

}

Пример:

20

12

6

4,6(3 оценок)
Открыть все ответы
Ответ:
Vasyy123
Vasyy123
30.10.2020
Const n=5;
var 
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,max,min,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(21);
   write(a[i,j]:4);
  end;
  writeln;
 end;
max:=a[1,n];
for i:=2 to n do
  if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln('1. max = ',max);
for i:=1 to n do
 begin
 min:=a[i,1];
 for j:=2 to n do
  if a[i,j]<min then min:=a[i,j];
 b[i]:=min;
 end;
s:=0;
writeln('2. Массив B');
for i:=1 to n do 
 begin
 write(b[i]:4);
 s:=s+b[i];
 end;
writeln;
writeln('3. среднее = ',s/n);
for i:=1 to n do 
 if b[i]>s/n then write(b[i]:4);
writeln;
end.

Пример:
Исходный массив:
  10  19  15  17  10
  12  12  10   1   5
  17   8   8  14  15
  12  11   8   0  13
   2   2   4  10   6
1. max = 11
2. Массив B
  10   1   8   0   2
3. среднее = 4.2
  10   8
4,6(87 оценок)
Ответ:
Кириииил
Кириииил
30.10.2020
Лучше скачайте прикреплённый файл, так как здесь всё слилось))
1) varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(A)else writeln(B);end.2)varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(B)else writeln(A);end.3)varA, B: integer;beginreadln(A);readln(B);if (A>B) then  beginwriteln (A, ' - максимальное число');writeln (B, ' - минимальное число');end;if (B>A) then beginwriteln (B, ' - максимальное число');writeln (A, ' - минимальное число');end;end.4)varA, B, c, d: integer;beginreadln(A);readln(B);c:= A+2*B;d:= 3*A-B;if (c>d) then  writeln ('A+2B > 3A-B')else writeln ('3A-B > A+2B');end.
Воот))
4,4(9 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ