PASCAL

[dinhoguid]

BOA TARDE PESSOAL. ESTOU ME ENROLANDO PRA FAZER UM EXERCICIO (já FIZ ALGO) MAS NÃO ESTOU SABENDO COM ATRIBUIR VALORES PARA VARIÁVEIS, ETC...

Construir um programa que, dados X, M, N e R, números naturais, fornecidos no início da execução do programa, calcule e apresente no vídeo os números contidos em interseção Z, entre conjuntos C1 C2 e C3

onde:

C1: conjunto dos números naturais contidos no intervalo (M, N)

C2: conjunto dos números primos

C3: conjunto dos X números naturais gerados pela função random, no intervalo [0, 100) e randseed = R

Z: intersecção dos conjuntos C1, C2 e C3

Atenção:

1. Os valores de X, R, M e N devem ser validados, sendo que X deve ser > 0;

2. Para efeito deste exercício, o número 1 (um) não deve ser considerado como número primo;

3. O número 0 (zero) deve ser considerado um número natural;

agora postarei o que fiz:

program exerc04;

uses crt;

{...Trabalho 04 ...}

var

C1, C2, C3, RANDSEED, X, M, N, R, Z, li, ls, d, somadosdivisores: integer;

contador, somatorio, umnumero, media: real;

begin

somatorio := 0;

contador := 0;

randomize;

randseed := R;

somadosdivisores := 0;

repeat

write('Informe o valor de X: '); readln(X);

write('Informe o valor de M: '); readln(M);

write('Informe o valor de N: '); readln(N);

write('Informe o valor de R: '); readln(RANDSEED);

if (X <= 0) then writeln('Erro! Este valor deve ser maior que 0(ZERO)!');

until (n > 0);

if ( M < N)

then li := M + 1 //li = limite inferior

else li := N + 1;

if (N < M)

then ls := M - 1 // ls = limite superior

else ls := N - 1;

d := 2;

if (n > 2)

then repeat

if (n mod d = 0)

then somadosdivisores := somadosdivisores + d;

d := d + 1;

until (d > n div 2);

C1 := //tenho que atribuir entre m e n

C2 := //são os numero primos

C3 := random entre 0 e 100 e randseed = R

IF ( Z = C1 ) and ( Z = C2 ) and ( Z = C3 )

THEN write(Z);

repeat

X := random(100);

until (X > 0);

writeln(X);

repeat

contador := contador +1;

until (n = 0);

writeln('');

write('Digite qlq tecla para continuar...');

readkey;

end.

Desde já sou grato por qualquer ajuda!