renatocrb

Veja onde que está errado. Questão A Program A ;varn,x,p:integer;s:real;Procedure calculo;varf,u:integer;p:real;beginf:=1;for u:=1 to x dobeginf:=f*uend;p:=1+1/f;s:=p+s;end;BeginWriteln('Informe o número');readln(n);for x:=1 to n dobegincalculo;end;writeln('O Resultado será ',s);Writeln('Pressione qualquer tecla para finalizar');readkey;End. Questão B: Program B ;varx,numero:integer;Procedure calculo;vary,np,nc:integer;begin np:=0; nc:=numero-1; for y:=1 to nc do begin If (numero mod y=0) thennp:=y+np;end;if (numero=np) thenwriteln('O numero ',numero,' é perfeito')elsewriteln('O numero ',numero,' não é perfeito');end;BeginWriteln('Esse programa irá mostrar se os numeros informados são perfeitos ou não.');Writeln('Insira apenas números inteiros e positivos');Writeln('Aperte qualquer tecla pra começar');readkey;Writeln('Informe os números'); for x:=1 to 10 do begin readln (numero); if numero<0 then writeln('Número inválido. Informe apenas inteiros positivos') else calculo; end; Writeln('Pressione qualquer tecla para finalizar'); readkey;End. No aguardo! Exercícios em Pascal.doc

Estava Faltando as condições para fazer o exercício, mas agora já inclui. Esse é o problema não sei fazer, estava precisando de uma Luz para tentar resolver outros exercícios que tenho aqui que se assemelham a esses que postei. obrigado!

Olá pessoal boa noite preciso de uma ajuda com esses 2 exercícios em pascal por favor me ajudem. Implementação de dois programas em Pascal: a. Faça um programa que leia um número inteiro positivo N e crie uma sub-rotina que receba como parâmetro esse valor N e retorne ao programa principal o valor de S obtido pelo seguinte cálculo: =1+1/1!⁄+1/2!⁄+1/3!⁄+⋯+1/! b. Faça um programa que leia 10 números inteiros e positivos e implemente um procedimento que dado um número lido informe se ele é um número perfeito ou não. Sabe-se que um número é perfeito quando é igual à soma de seus divisores (exceto ele mesmo). Exemplo: os divisores de 6 são 1, 2 e 3, e 1+2+3 = 6. Logo, 6 é um número perfeito. Para cada um dos valores lidos, o procedimento implementado deve ser executado para informar se o número é ou não perfeito.