For4. дано вещественное число — цена 1 кг конфет. вывести стоимость 1, 2, . . , 10 кг конфет. for8. даны два целых числа a и b (a < b). найти произведение всех целых чисел от a до b включительно. for10. дано целое число n (> 0). найти сумму 1 + 1/2 +
1/3 + . . + 1/n (вещественное число).

Var a: real; i: byte; begin writeln('введите цену одного кг конфет'); readln(a); for i: = 1 to 10 do       write(a*i,' '); end. пример: введите цену одного кг конфет 3.2 3.2 6.4 9.6 12.8 16 19.2 22.4 25.6 28.8 32 var a,b: integer; p: real; begin p: =1; write('a = '); readln(a); write('b = '); readln(b); for a: = a to b do       p: =p*a; writeln(p); end. пример: a = 3 b = 7 p = 2520 var n: integer; s: real; begin write('n = '); readln(n); s: =0; for n: = 1 to n do       s: =s+1/n; write('s = ',s) end. пример: n = 3 s = 1.83333333333333

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.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

Microsoft Word
WordPad
Write
Notepad
...
А сколько букв?

V=256000 битс t= 2 минуты= 120 секунд S= 256000 * 120 =30720000 бит Теперь перейдём в байты: 30720000 разделить на 8 = 3840000байт, а из байтов в килобайты: 3840000 разделить на 1024 = 3750 килобайт 

Вес страницы = 8*128=1024 бита
1024 бита= 1кбит
=> вес 800 страниц = 800*1=800кбит
800/60=13.(3) с
13 целых и одна третья секунды.