Question

Пожалуйста помогите написать три программы: одна с for, вторая с while, третья с repeat для вывода на экран чисел в четвёртой степени от A до B, которые ввёл пользователь. подсказка: Если A> B то в степень возводится число A и на оборот паскаль

Answer 1

1)

A = int(input())

B = int(input())

for i in range(A,B+1):

print(i**4)

2)

A = int(input())

B = int(input())

i=A

while i<=B:

print(i**4)

i+=1

3)(В питоне нет функции repeat, здесь представлен ее аналог)

A = int(input())

B = int(input())

i=A

while True:

print(i**4)

i+=1

if i>B:

break

Answer 2

Конечно! Вот три программы на Pascal, каждая использует разные виды циклов (for, while, repeat) для вывода чисел в четвёртой степени от A до B:

1. Программа с использованием цикла for:

pascalCopy code
program ForLoopExample;
var
  A, B, i: integer;
begin
  write('Введите A: ');
  readln(A);
  write('Введите B: ');
  readln(B);

  if A > B then
  begin
    for i := A downto B do
      writeln(i, ' в четвертой степени = ', i*i*i*i);
  end
  else
  begin
    for i := A to B do
      writeln(i, ' в четвертой степени = ', i*i*i*i);
  end;
end.

2. Программа с использованием цикла while:

pascalCopy code
program WhileLoopExample;
var
  A, B, i: integer;
begin
  write('Введите A: ');
  readln(A);
  write('Введите B: ');
  readln(B);

  i := A;
  if A > B then
  begin
    while i >= B do
    begin
      writeln(i, ' в четвертой степени = ', i*i*i*i);
      Dec(i);
    end;
  end
  else
  begin
    while i <= B do
    begin
      writeln(i, ' в четвертой степени = ', i*i*i*i);
      Inc(i);
    end;
  end;
end.

3. Программа с использованием цикла repeat:

pascalCopy code
program RepeatLoopExample;
var
  A, B, i: integer;
begin
  write('Введите A: ');
  readln(A);
  write('Введите B: ');
  readln(B);

  i := A;
  if A > B then
  begin
    repeat
      writeln(i, ' в четвертой степени = ', i*i*i*i);
      Dec(i);
    until i < B;
  end
  else
  begin
    repeat
      writeln(i, ' в четвертой степени = ', i*i*i*i);
      Inc(i);
    until i > B;
  end;
end.

Каждая из этих программ запрашивает у пользователя значения A и B, затем выводит числа в четвёртой степени от A до B, в зависимости от введенных значений и используемого типа цикла.