Question

Ввести а и б и вывести квадраты и кубы чисел от а до б. Программа Паскаль ​

Answer 1

Ответ:

Var i,a,b:integer;

Begin

Read(a,b);

For i:=a to b do begin

Writeln(i*i);

Writeln(i*i*i);

End;

End.

Answer 2

К сожалению, я не могу выполнять программы напрямую, но я могу предоставить вам псевдокод (алгоритм), который решает данную задачу. Вы можете использовать этот псевдокод для написания программы на Pascal.

Псевдокод:

lessCopy code
1. Ввод значения a и b (начальное и конечное число).
2. Если a > b, обменять значения a и b, чтобы a было меньше или равно b.
3. Для каждого числа i от a до b выполнить следующие шаги:
   а. Вычислить квадрат числа i, возведя его в степень 2.
   б. Вычислить куб числа i, возведя его в степень 3.
   в. Вывести значения i, i^2 и i^3 в формате "число: квадрат: куб".

Пример на Pascal:

program SquaresAndCubes; var a, b, i, square, cube: integer; begin writeln('Введите a и b:'); readln(a, b);

if a > b then begin // Обмен значениями, если a > b a := a + b; b := a - b; a := a - b; end;

writeln('Число: Квадрат: Куб:');

for i := a to b do begin square := i * i; cube := i * i * i; writeln(i, ': ', square, ': ', cube); end; end.

cssCopy code

Пожалуйста, скопируйте псевдокод или код на Pascal в вашу среду разработки Pascal, чтобы выполнить программу и получить результаты для заданного диапазона чисел a и b.