Найти произведение натуральных чисел от 8 до 15
Найти произведение натуральных чисел от 8 до 15
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы