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!
