Предмет: Информатика,
автор: viva78
помогите решить цикл
Ответы
Автор ответа:
0
var i,n:integer; s:double;ch,zn:longint;beginread(n);ch:=1;zn:=1;for i:=1 to 2*n do beginzn:= zn * i;write(zn:6);if i <= n then ch:=ch *i; {if-ограничение до n}end;writeln;write(ch:6);s:= (3 + ch)/zn;writeln;write(s:6);end.
Похожие вопросы
Предмет: Математика,
автор: zabivnoi679393
Предмет: Музыка,
автор: ToporinaVarvara
Предмет: Русский язык,
автор: ajnizamaksatbekovna0
Предмет: Математика,
автор: alexandra112s
Предмет: Математика,
автор: anastasia142005