Регистрация
lalalol1
25.03.2021 12:34
Информатика
Есть ответ 👍

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

257
284
Посмотреть ответы 2

Ответы на вопрос:

anka110
anka110
4,5(2 оценок)
// 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
Sadist702
Sadist702
4,7(93 оценок)
1)var a: integer; begin writeln('введите число'); readln(a); if (a mod 2=0) then write('чётное ') else write('нечётное '); if (a div 100> =1)then write('трёхзначное число') else if (a div 10> =1)then write('двузначное число') else writeln('однозначное число'); end.2)var a,b,c: real; begin writeln('введите 1 число'); readln(a); writeln('введите 2 число'); readln(b); writeln('введите 3 число'); readln(c); if (a< b)and (b< c) then  begin a: =2*a; b: =2*b; c: =2*c; end else  begin a: =(-1)*a; b: =(-1)*b; c: =(-1)*c; end; writeln(a); writeln(b); writeln(c); end. 3)var a,b,c: integer; begin writeln('введите 1 число'); readln(a); writeln('введите 2 число'); readln(b); writeln('введите 3 число'); readln(c); if a=b then writeln('3') else if b=c then writeln('1') else writeln('2'); end.

Популярно: Информатика