Jefferson Alan

Program Pzim ; Var i, resp, conts, contn, contm, contf, masc, fem: integer; sexo: char; pcts, pctn: real; Begin conts:= 0; contn:= 0; contm:= 0; contf:= 0; for i:= 1 to 4 do Begin clrscr; writeln ('Informe seu sexo: '); readln (sexo); if (sexo = 'm') or (sexo = 'M') then Begin contm:= contm + 1; writeln ('Você gostou do produto? (1- sim, 2- não): '); readln (resp); if (resp = 1) then Begin conts:= conts + 1; End else if (resp = 2) then Begin masc:= masc+1; contn:= contn + 1; End; End else if (sexo = 'f') or (sexo = 'F') then Begin contf:= contf+1; writeln ('Você gostou do produto? (1- sim, 2- não): '); readln (resp); if (resp = 1) then Begin fem:= fem+1; conts:= conts + 1; End else if (resp = 2) then Begin contn:= contn + 1; End; End; End; pcts:= (fem/conts)*100; pctn:= (masc/contn)*100; writeln ('Pessoas que responderam sim: ', conts); writeln ('Pessoas que responderam não: ', contn); writeln ('Porcentagem de pessoas de sexo feminino que responderam sim: ', pcts, '%'); writeln ('Porcentagem de pessoas do sexo masculino que responderam não: ', pctn, '%'); end. ele está meio certo, o problema é que quando coloco tipo 3 do sexo masculino sim e 1 do sexo feminino não,a porcentagem zera!!!!!

Program Pzim ; Var ma, g: real; h, m, hora, s, seg, min: integer; Begin hora:= 3600; min:= 60; seg:= 0; Writeln ('Digite o valor da massa em gramas: '); Readln (g); ma:= g; while g > 0.5 do Begin seg:= seg + 50; g:= g / 2; End; h:= seg mod hora; m:= seg mod min; while (m >= 60) do Begin h := h + 1; m:= m - 60; s:= seg div min; End; Writeln ('Massa inical: ', ma); writeln ('Massa final: ', g); writeln ('Tempo de: ', h, ' horas ', m,' minutos e ', s, ' segundos'); End. Um determinado material radioativo perde metade de sua massa a cada 50 segundos. Dada a massa inicial, em gramas, fazer um algoritmo que determine o tempo necessário para que essa massa se torne menor do que 0,5 grama. Escreva a massa inicial, a massa final e o tempo calculado em horas, minutos e segundos.

Escreva um programa que solicite ao usuário um número inteiro n, que deve ser positivo e maior que zero, e um caractere. Em seguida, terá que preencher n linhas, cada uma delas com o caracter lido aparecendo n vezes. Exemplo: Número: 3; Caracter: * Saída: *** *** ***