1. var p:real; i:integer; begin write('цена 1 кг конфет = '); readln(p); for i:=1 to 10 do writeln(i,' кг - ',i*p:5:2); end.
Пример: цена 1 кг конфет = 125.50 1 кг - 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.00
2. var a,b,p,i:integer; begin write('a, b: '); readln(a,b); p:=1; for i:=a to b do p:=p*i; writeln('p = ',p); end.
Пример: a, b: 5 10 p = 151200
3. var n,i:integer; s:real; begin write('n = '); readln(n); s:=0; for i:=1 to n do s:=s+1/i; writeln('s = ',s:8:3); end.
