Question

Срочно!!!!!! Pascal ABC Net a) составьте программу, выводящую на экран числа от 1 до 10, а также квадраты и кубы этих чисел в следующем виде:1 1 12 4 8б) Составьте программу, выводящую на экран все числа от - 10 до 10,а также их модули -10 10-9 9​

Answer 1

Ответ:

1) Program l1;

Var a:integer;

Begin

For a:= 1 to 10 do Writeln(a, ' ', a*a,' ',a*a*a);

end.

2) Program l2;

Var a,b: integer;

Begin

For a:= -10 to 10 do

begin

b:=Abs(a);

Writeln(a, ' ' ,b);

end;

end.

Я не проверял работает ли , но по идее должно

Answer 2

===== PascalABC.NET =====

=1=

begin

 for var a := 1 to 10 do

   Println(a, a * a, a * a * a)

end.

=2=

begin

 for var a := -10 to 10 do

   Println(a, Abs(a))

end.

Answer 3

Для задачи а) в Pascal ABC Net, вам потребуется использовать цикл for для перебора чисел от 1 до 10 и выводить каждое число, его квадрат и куб на экран.

pascalCopy code
program NumbersAndPowers;

var
  num, square, cube: Integer;

begin
  for num := 1 to 10 do
  begin
    square := num * num;
    cube := num * num * num;
    WriteLn(num, ' ', square, ' ', cube);
  end;
end.

Для задачи б) вам нужно вывести числа от -10 до 10 и их модули. Модуль числа - это его абсолютное значение, то есть без знака.

pascalCopy code
program NumbersAndAbsValues;

var
  num: Integer;

begin
  for num := -10 to 10 do
  begin
    WriteLn(num, ' ', Abs(num));
  end;
end.

Обратите внимание, что код в Pascal ABC Net не чувствителен к регистру, поэтому вы можете использовать любой стиль написания команд и ключевых слов (в верхнем или нижнем регистре) для удобства чтения.