Предмет: Информатика, автор: popaz79

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

Ответы

Автор ответа: Gastiff
0

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.

Интересные вопросы
Предмет: География, автор: petlevanmilana0
Предмет: Математика, автор: vi111