Question

Составить программу на языке Паскаль которая запрашивает 2 числа и выводит сперва квадраты чисел от единицы до первого числа, а затем кубы чисел от единицы до второго числа. (Например при вводе чисел 6 и 4 программа должна вывести "Квадраты чисел: 1 4 9 16 25 36. Кубы чисел: 1 8 27 64")

Answer 1

Ответ:

Program lolol;

Var s, n, i:Integer;

Begin

Readln(s);

Readln(n);

Writeln('Квадраты чисел:');

For i:= 1 to s do

Writeln(i*i);

Writeln('Кубы чисел:');

For i:= 1 to n do

Writeln(i*i*i);

End.

(Паскаль)

Объяснение:

Начало - переменные s, n, i - ввод s - ввод n - вывод *цикл s* - вывод *цикл n* - конец.

Answer 2

Конечно, вот пример программы на языке Паскаль, которая выполняет задачу:

program SquaresAndCubes;

var
  num1, num2, i: integer;

begin
  // Вводим два числа
  writeln('Введите первое число:');
  readln(num1);
  
  writeln('Введите второе число:');
  readln(num2);
  
  // Выводим квадраты чисел от 1 до первого числа
  writeln('Квадраты чисел:');
  for i := 1 to num1 do
  begin
    write(i * i, ' ');
  end;
  
  // Выводим кубы чисел от 1 до второго числа
  writeln;
  writeln('Кубы чисел:');
  for i := 1 to num2 do
  begin
    write(i * i * i, ' ');
  end;
  
  writeln; // Переход на новую строку в конце программы
end.

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