Question

СРОЧНО ПОЖАЛУЙСТА РЕШИТЕ!! 1) Необходимо вывести на экран таблицу умножения на 3: 3×1=3, 3×2=6, 3×3=92) Напишите программу где пользователь вводит любое целое положительное число, а программа сумирует все числа от 1 до веденного пользователем числа.3) Вывести значения выражения при n от 1 до 10 (6-n)² - (6+n)²/ (6+n)² - (1-n)²Всё в паскале нужно!РЕШИТЕ ХОТЯ-БЫ 1 ИЛИ 2 ПОЖАЛУЙСТААА!!!​

Answer 1

№1.

var i:integer;

begin

   for i:=1 to 10 do writeln('3x', i, '=', 3*i);

end.

№2.

var n, sum, i:integer;

begin

   sum:=0;

   readln(n);

   for i:=1 to n do sum:=sum+i;

   writeln(sum);

end.

№3.

uses math;

var n:integer; result:real;

begin

   for n:=1 to 10 do begin

       result := (power(6-n, 2)-power(6+n, 2))/(power(6+n, 2)-power(1-n, 2));

       writeln(result:1:2);

   end;

end.

Answer 2

1)

program n;

var i: integer;

begin

   for i:=1 to 10 do writeln('3*',i,'=',i*3)

end.

2)

program nn;

var i, a, b: integer;

begin

   write('Введите число: ');

   readln(a);

   for i:=0 to a do

       b+=i;

   write('Результат: ',b)

end.

3)

program nnn;

var i, a: integer;

begin

   for i:=1 to 10 do writeln((sqr(6-i)- sqr(6+i)/sqr(6+i)-sqr(1-i)):0:1)

end.

Answer 3

1) Вывод таблицы умножения на 3

Чтобы вывести таблицу умножения на 3, можно использовать цикл, который будет умножать число 3 на числа от 1 до 10 и выводить результат на экран. Вот пример программы на языке Pascal:

program MultiplicationTable;
var
  i, result: integer;
begin
  for i := 1 to 10 do
  begin
    result := 3 * i;
    writeln('3 * ', i, ' = ', result);
  end;
end.

Результат выполнения программы будет следующим: ``` 3 * 1 = 3 3 * 2 = 6 3 * 3 = 9 3 * 4 = 12 3 * 5 = 15 3 * 6 = 18 3 * 7 = 21 3 * 8 = 24 3 * 9 = 27 3 * 10 = 30 ```

2) Сумма чисел от 1 до введенного пользователем числа

Для того чтобы написать программу, которая будет суммировать все числа от 1 до числа, введенного пользователем, можно использовать цикл и переменную для хранения суммы. Вот пример программы на языке Pascal:

program SumOfNumbers;
var
  n, i, sum: integer;
begin
  write('Введите целое положительное число: ');
  readln(n);
  
  sum := 0;
  for i := 1 to n do
  begin
    sum := sum + i;
  end;
  
  writeln('Сумма чисел от 1 до ', n, ' равна ', sum);
end.

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

3) Вывод значений выражения при различных значениях n

Для вывода значений выражения при различных значениях n от 1 до 10, можно использовать цикл и вычислить значение выражения для каждого значения n. Вот пример программы на языке Pascal:

program ExpressionValues;
var
  n, result: integer;
begin
  for n := 1 to 10 do
  begin
    result := (6 - n) * (6 - n) - (6 + n) * (6 + n) / ((6 + n) * (6 + n) - (1 - n) * (1 - n));
    writeln('При n = ', n, ', значение выражения равно ', result);
  end;
end.

Результат выполнения программы будет следующим: ``` При n = 1, значение выражения равно -0.5 При n = 2, значение выражения равно -0.6666666666666666 При n = 3, значение выражения равно -0.75 При n = 4, значение выражения равно -0.8 При n = 5, значение выражения равно -0.8333333333333334 При n = 6, значение выражения равно -0.8571428571428571 При n = 7, значение выражения равно -0.875 При n = 8, значение выражения равно -0.8888888888888888 При n = 9, значение выражения равно -0.9 При n = 10, значение выражения равно -0.9090909090909091 ```

Надеюсь, эти примеры помогут вам решить вашу задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать их.