Pascal написать вычисление примера

Question

Pascal написать вычисление примера

иван лычагин Ученик (148), закрыт 2 года назад

Надо написать решение примера под 16 номером, помогите пожалуйста

Answer 1

kaiu Высший разум (120240) 2 года назад

Так

иван лычагинУченик (148) 2 года назад

Это пример под 16, а то плохо понимаю?

kaiu Высший разум (120240) иван лычагин, угу, он самый...но блок-схема так себе, но это прога строит, а там мне некогда

иван лычагинУченик (148) 2 года назад

Спасибо вам за помощь

Бывший ГеймерПросветленный (34314) 2 года назад

Да, i = 1 стопудово надо включать в произведение, а то работать не будет.

kaiu Высший разум (120240) Бывший Геймер, да это просто принцип показать :) и не оптимизировал. Он должен был изучать факториал, может ему через функции это дают.

Answer 2

Тут по требованию задания надо сделать два разных цикла, хотя на самом деле всё легко вычисляется в одном, а в остальном почти всё как у kaiu:

 var m, n: integer; s, f: real; begin 
f:=1; s:=0; write('n: '); readln(n); 
for m:=1 to n do f:=f*m; m:=1; repeat 
m:=m+1; s:=s+1/m until m = n+1; 
writeln(f/s) end.

Answer 3

Роман Петров Новичок (0) 2 года назад

Паскаль - мертвый язык, забудь на него!!!

Дмитрий ШишкинГений (73057) 2 года назад

Тебя самого надо забыть. Вон в Европе и США почти на любом языке пишут - на BASIC'е, на том же Паскале - и ничего, все радуются, только у нас в стране дешёвые понты кругом.

Дмитрий Шишкин, пишут, вот только это настолько узконаправленный язык что ты з@ебешЪся его учить + хер где применишь

Answer 4

 Program P16; 
uses crt; 
var c, i, n, z: integer; 
begin 
clrscr; 
write ('Введите с клавиатуры целое число, после чего нажмите клавишу Enter: n='); 
readln (n); 
c:=1; 
z:=1; 
for i:=1 to n do c:=c*i; 
for i:=2 to (n+1) do z:=z*i; 
writeln ('Ответ: ', c/(1/z)); 
write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 
readkey; 
end.