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