Найти произведение натуральных чисел от 8 до 15

ания7 ания7    1   17.05.2019 10:00    1

Ответы
hihok hihok  30.09.2020 18:59

var a:array [1..100] of integer;

i,p:integer;

begin

p:=1;

for i:=8 to 15 do begin

a[i]:=i;

p:=p*a[i];

end;

writeln(p);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика