Регистрация
karolinetynfag
09.05.2021 13:30
Информатика
Есть ответ 👍

)) дано вещественное число a и целое число n (> 0). вывести все целые степени числа a от 1 до n.

100
309
Посмотреть ответы 2

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

GLEBfy
GLEBfy
4,5(16 оценок)

var

  a, r: real;

  n, s: integer;

begin

  s : = 1;

  write('a = '); readln(a);

  write('n = '); readln(n);

  r : = a;

  while r < = n do

  begin

      writeln(s);

      inc(s);

      r : = r * a;

  end;

  if a > n then

      writeln(a , ' в любой степени > = 1 будет больше числа ', n);

end.

     

 

СветланаСветик3
СветланаСветик3
4,7(88 оценок)
Var k,i: integer; n: array[1..5,1..5] of integer; begin for i: =1 to 5 do begin for k: =1 to 5 do begin n[i,k]: = random(27)-62; writeln(n[i,k]); end; end; end.

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