Ответы и объяснения

2013-11-14T18:58:15+00:00
Var I,m,Z,X,y:real; Begin X:=6.7; Y:=7.9; M:=0.4; Z:=1; For i:= x to y do Begin I:=i+m; Z:=z*i;End;Writeln(z);End.
Var
I,m,Z,X,y:real;
Begin
X:=6.7;
Y:=7.9;
M:=0.4;
Z:=1;
For i:= x to y do
Begin
I:=i+m;
Z:=z*i;
End;
Writeln(z);
End.
Вместо х,у,м можно поставить любые числа.