Предмет: Информатика,
автор: popaz79
найти произведение натуральных чисел от 8 до 15
Ответы
Автор ответа:
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.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: milanakraeva153
Предмет: География,
автор: petlevanmilana0
Предмет: Қазақ тiлi,
автор: dabzhanova
Предмет: Математика,
автор: vi111
Предмет: История,
автор: Ksenia98