Дано натуральное число n. Найти сумму S=2/5 + 2/9 + 2/13 +… . (n слагаемых)

2. Вычислить: x+ 2x+ 3x +….(n слагаемых)

3. Подсчитать количество двузначных чисел, кратных 3.

4. .Подсчитать сумму двузначных чисел, сумма цифр которых не превышает 10.

5. Найти наименьшее общее кратное (НОК) двух натуральных чисел.

6. Вводится K пар натуральных чисел. Найти НОД каждой пары.

7. Вводится N натуральных чисел. Найти среднее арифметическое цифр каждого из них.​

паскаль:

uses crt;

var a,b: string; \ а-слово ,b-символ

i: integer; \ переменная для счета

begin

writeln ('слово и символ');

readln (a,b); \\ввод данных

for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а   и сравнение каждого с символом b. вывод ответа. или ответов 

readkey; \\если символы в слове повторяются

end.

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.

самым главным считается объем

program p; uses crt,graph; var d,m: integer; beginclrscr; initgraph(d,m,''); setcolor(green) ; line(200,420,300,420); line(300,420,250,330); line(250,330,200,420); line(200,330,300,330); line(300,330,250,240); line(250,240,200,330); line(200,240,300,240); line(300,240,250,140); line(250,140,200,240); readkey; end.