For4. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, . . . , 10 кг конфет.

For8. Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно.

For10. Дано целое число N (> 0). Найти сумму 1 + 1/2 + 1/3 + . . . + 1/N (вещественное число).

Спасибо, а как оформить

Спасибо, а как оформить

VarA:real;i:byte;BeginWriteLn('Введите цену одного кг конфет');ReadLn(A);For i:= 1 to 10 do    Write(A*i,' ');End.Пример:Введите цену одного кг конфет3.23.2 6.4 9.6 12.8 16 19.2 22.4 25.6 28.8 32 VarA,B:integer;P:real;BeginP:=1;Write('A = ');ReadLn(A);Write('B = ');ReadLn(B);For A:= A to B do    P:=P*A;WriteLn(P);End.Пример:A = 3B = 7P = 2520VarN:integer;S:real;BeginWrite('N = ');ReadLn(N);S:=0;For N:= 1 to N do    S:=S+1/N;Write('S = ',S)End.Пример:N = 3S = 1.83333333333333

1.var p:real; i:integer;beginwrite('цена 1 кг конфет = ');readln(p);for i:=1 to 10 do writeln(i,' кг - ',i*p:5:2);end.Пример:цена 1 кг конфет = 125.501 кг - 125.50 2 кг - 251.00 3 кг - 376.50 4 кг - 502.00 5 кг - 627.50 6 кг - 753.00 7 кг - 878.50 8 кг - 1004.00 9 кг - 1129.50 10 кг - 1255.002.var a,b,p,i:integer;beginwrite('a, b: ');readln(a,b);p:=1;for i:=a to b do p:=p*i;writeln('p = ',p);end.Пример:a, b: 5 10p = 1512003.var n,i:integer; s:real;beginwrite('n = ');readln(n);s:=0;for i:=1 to n do s:=s+1/i;writeln('s = ',s:8:3);end.Пример:n =5s = 2.283