Вычислить произведение положительных и отрицательных чисел,в интервале от -7 до 7
на Pascal ABC

1
Program p7;
var i:integer;
p:integer;
begin
p:=1;
For i:= -7 to 7 do
if i<>0 then p*=i;
Writeln('Ответ: ',p);
end.

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

2014-02-10T20:29:14+04:00
Program задание;
var i:integer;
p:integer;
begin
p:=1;
For i:= -7 to 7 do
if i<>0 then p*=i;
Writeln('Ответ: ',p);
end.