Question

СРОЧНО ПОЖАЛУЙСТА РЕШИТЕ!!
1) Необходимо вывести на экран таблицу умножения на 3: 3×1=3, 3×2=6, 3×3=9
2) Напишите программу где пользователь вводит любое целое положительное число, а программа сумирует все числа от 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.