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

Натуральное число x называется точной степенью, если существуют такие натуральные числа a и b (b > 1), что x = a в степени b (a^b). Заметим, однако, что указанные числа a и b могут определяться неоднозначно.
Например, 16 = 2^4 = 4^2 ,
то есть для x = 16 существуют две такие пары (a, b).
Ваша задача состоит в том, чтобы найти все такие пары a,b что x = a^b.

Формат входного файла

Входной файл содержит целое число x (2 <= x <= 10^9)

Формат выходного файла

В первой строке выходного файла выведите число k искомых пар (a, b).
В каждой из последующих k строк выведите два числа:
ai и bi.

Примеры

power.in power.in
3 16

power.out power.out
0 2
2 4
4 2

👇
Ответ:
sol9
sol9
05.06.2022

#include <iostream>

#include <cmath>

#include <fstream>

using namespace std;

int main() {

fstream inputF("power.in.txt");

int x;

inputF >> x;

inputF.close();

int a = 0, b = 0;

fstream outputF("power.out.txt");

while (a <= x && b <= x) {

 a == x ? a = 0, b++ : a++;

 if (pow(a, b) == x) {

  outputF << a << ' ' << b << endl;

 }

}

return 0;

}

4,4(34 оценок)
Открыть все ответы
Ответ:
bosschakalev
bosschakalev
05.06.2022
                                     PascalABC.NET                                       beginvar n := ReadInteger('Введите количество резисторов:');var Rs := ReadArrInteger('Введите их сопротивления:',n);Writeln(NewLine, 'Общее сопротивление цепи равно:');Println(' при последовательном соединении -', Rs.Sum,'Ом');Println(' при параллельном соединении -', 1/Rs.Sum(r->1/r),'Ом');end.

или кратко:

beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.

Пример работы:


решите нужно очень (составить программу определения общего сопротивления электрической цепи при посл
решите нужно очень (составить программу определения общего сопротивления электрической цепи при посл
4,8(42 оценок)
Ответ:
ZlushiyPlayar
ZlushiyPlayar
05.06.2022
                                     PascalABC.NET                                       beginvar n := ReadInteger('Введите количество резисторов:');var Rs := ReadArrInteger('Введите их сопротивления:',n);Writeln(NewLine, 'Общее сопротивление цепи равно:');Println(' при последовательном соединении -', Rs.Sum,'Ом');Println(' при параллельном соединении -', 1/Rs.Sum(r->1/r),'Ом');end.

или кратко:

beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.

Пример работы:


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