Напишите программы на языке pascal (оператор repeat):
1) напечатать все целые значения от a до b с шагом h.
вход: 1 10 2 вход: 5 20 5
выход: 1 3 5 7 9 выход: 5 10 15 20
2) для заданного натурального n и действительного x подсчитать
сумму
s = [tex]1^{2}[/tex] + [tex]2^{2}[/tex] + [tex]3^{2}[/tex] + + [tex]n^{2}[/tex]
вход: 3 вход: 2
выход: 14 выход: 5
3) для заданного натурального n и действительного x подсчитать
сумму
s = 1 + [tex]\frac{1}{2}[/tex] + [tex]\frac{1}{3}[/tex] + + [tex]\frac{1}{n}[/tex]
вход: 3 вход: 5
выход: 1.83 выход: 2.28

х = log₂ n;

х = log₂ 12 бит.

смотри описание блок схемы на картинке

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.

varn,i: integer; x0,y0,x1,y1,x2,y2,s: real; begin readln(n); s: =0; readln(x0,y0); x1: =x0; y1: =y0; for i: =2 to n do begin readln(x2,y2); s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); x1: =x2; y1: =y2; end; x2: =x0; y2: =y0; s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); writeln(s: 10: 2); end.