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

Составить программу,которая возводит в степень дробь

👇
Ответ:
105184
105184
17.03.2023
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  var a,b,sgn:integer;
  var aa,bb,ap,bp:BigInteger;
  var s:string:='';
  Write('Введите числитель и знаменатель дроби: ');
  Read(a,b);
  var n:=ReadInteger('Ввведите показатель степени:');
  if n=0 then WritelnFormat('({0}/{1})^0 = 1',a,b)
  else
    if (a=0) and (b<>0) then WritelnFormat('(0/{0})^{1} = 0',b,n)
    else begin
      if a*b<0 then s:='-';
      aa:=abs(a); bb:=abs(b); ap:=1; bp:=1;
      if n>0 then
        for var i:=1 to n do begin ap*=aa; bp*=bb end
      else
        for var i:=1 to -n do begin ap*=bb; bp*=aa end;
      if bp=1 then
        WritelnFormat('({0}/{1})^{2} = {3}{4}',a,b,n,s,ap)
      else
        WritelnFormat('({0}/{1})^{2} = {3}{4}/{5}',a,b,n,s,ap,bp)
      end
end.

Тестовые примеры:
Введите числитель и знаменатель дроби: 1 23
Ввведите показатель степени: 5
(1/23)^5 = 1/6436343

Введите числитель и знаменатель дроби: 1 6
Ввведите показатель степени: -4
(1/6)^-4 = 1296

Введите числитель и знаменатель дроби: -3 31
Ввведите показатель степени: 11
(-3/31)^11 = -177147/25408476896404831

Введите числитель и знаменатель дроби: -17 -125
Ввведите показатель степени: 4
(-17/-125)^4 = 83521/244140625

Введите числитель и знаменатель дроби: -15 27
Ввведите показатель степени: 0
(-15/27)^0 = 1

Введите числитель и знаменатель дроби: 0 3
Ввведите показатель степени: 2
(0/3)^2 = 0

Введите числитель и знаменатель дроби: 2 0
Ввведите показатель степени: 3
(2/0)^3 = 8/0

Введите числитель и знаменатель дроби: 0 0
Ввведите показатель степени: 3
(0/0)^3 = 0/0
4,5(16 оценок)
Открыть все ответы
Ответ:
Dymai11
Dymai11
17.03.2023

for (i = 0; i < kol; i++) {

cout « as[i].punkt_naznachenia « " ";

cout « as[i].nomer_reisa « " ";

cout « as[i].tip_samoleta « endl;

}

char poisk_samoletov[40];

cout « "Punkt naznachenia reisa " « endl;

cin » poisk_samoletov;

bool f = false;

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

if (strcmp(as[i].punkt_naznachenia, poisk_samoletov) == 0)

{

cout « "Nomer reisa ";

cout « as[i].nomer_reisa « endl;

cout « "Tip samoleta ";

cout « as[i].tip_samoleta « endl;

f = true;

}

if (!f) {

cout « "Net takogo punkta naznachenia reisa " « endl;

}

system("pause");

}

Объяснение:

4,4(58 оценок)
Ответ:
leratolcynova
leratolcynova
17.03.2023

Колибри – әлемдегі ең кішкентай құс саналады. Оның көлемі бар болғаны 7 см-ді құраса, салмағы 2 грамм болады екен. Көзге елестетудің өзі қиын әрі қызық. Колибрилер тез ұшады, әрі ұшу бағытын үнемі өзгертіп отырады. Кейбір ұсақ түрлері қанаттарын секундына 80 рет қаға алады. Тұмсықтары жіңішке әрі ұзын, кей түрінде иіліп келген, гүл шырындарын соруға бейімделген. Олар гүл шырындарымен, ұсақ жұмсақ жәндіктермен, өрмекшілермен қоректенеді.Тағы бір ерекшелігі бар. Ол - артқа ұша алатын жалғыз құс. Сондай-ақ, ұяны жасайтын да балапан басатын да анасы екен1

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