Question

Напишите пожалуйста в форме таблицы решение
1) sum:=0
For i:=7 to do 10 do
Sum:=sum+i;
2) var p, n:integer;
Begin
P:=1;
For n:=7 downto 3 do
P:=p*n;
Writeln(p)
End. ​

Answer 1

Ответ:

1.

i sum

7 7

8 15

9 24

10 34

2.

n p

7 7

6 42

5 210

4 840

3 2520