Помощь
-
Поиск
-
Пользователи
-
Календарь
Полная версия:
вычислить произведение
Форум «Всё о Паскале»
>
Pascal, Object Pascal
>
Задачи
DRED
23.01.2005 7:29
Вычислить произведение P=3*6*...*(3n).
klem4
23.01.2005 13:08
Код
uses crt;
var n,p,i:longint;
Begin
clrscr;
readln(n);
p:=1;
writeln;
for i:=1 to n do
p:=p*3*i;
writeln('p=',p);
readln;
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста,
нажмите сюда
.