Напишите пожалуйста в форме таблицы решение 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.
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.
More Questions From This User See All