As Nove Durgas Obrigado pela visita dos internautas de Cabo Verde, continuem visitando. Um dia visito voces. {Um hotel cobra R$ 300,00 por diaria e mais uma taxa adicional de servicos.Se a diaria for menor que 15 a taxa e de R$ 20,00. Se o numero de diarias for igual a 15 ataxa e de R$ 14,00 e se o numero for maior que 15 a taxa e de R$ 12,00. Considerando-seque se tenha 200 pessoas e para cada pessoa tenha-se um registro contendo seu nome e onumero de diarias.Faca um algoritmo que imprima o nome e o total a pagar de cada pessoa eimprimir tambem o total ganho pelo hotel e o numero total de diarias.}{O exercicio esta feito para rodar com 5 entradas, pois duzentas seria inviavel o teste,e so mudar onde tem 5 para 200.} Program Pzim ;varhospede:array[1..5] of string;diarias:array[1..5] of integer;i, dias:integer;soma:real; Begin for i:=1 to 5 do begin writeln('Digite os dados do apartamento No.: ',i); writeln('Nome do Hospede : '); readln(hospede[i]); writeln('Diarias : '); readln(diarias[i]); clrscr; end; for i:=1 to 5 do begin if (diarias[i]<15) then begin writeln('O hospede : ',hospede[i],', do quarto : ',i,', gastou R$ : ',((diarias[i]*300)+(diarias[i]*20))); soma:=soma+(diarias[i]*320); dias:=dias+diarias[i]; end else if (diarias[i]=15) then begin writeln('O hospede : ',hospede[i],', do quarto : ',i,', gastou R$ : ',((diarias[i]*300)+(diarias[i]*14))); soma:=soma+(diarias[i]*314) ; dias:=dias+diarias[i]; end else if (diarias[i]>15) then begin writeln('O hospede : ',hospede[i],', do quarto : ',i,', gastou R$ : ',((diarias[i]*300)+(diarias[i]*12))); soma:=soma+(diarias[i]*312); dias:=dias+diarias[i]; end; end; writeln('A arrecadacao do hotel foi de R$ : ',soma:1:2); writeln('O total de diarias foi de : ',dias); End. Deseja-se construir um banco de dados para um sistema de vendas. Em cada venda sao vendidos varios produtos e um determinado produto pode aparecer em diferentes vendas. Cada venda e efetuada por um vendedor para um determinado cliente. Um produto esta armazenado em uma prateleira. Program Pzim ;Varx,num,soma,soma2:integer;Begin Writeln('Digite um numero maior que ZERO :'); //solicita que seja digitado um numero Read(Num); // le o numero If num<=0 then //se o numero for invalido recusa Write ('Numero digitado invalido, digite um mumero maior que zero') // exibe a mensagem else For x:=1 to num do //faz de 1 ate o numero Begin // soma:=(x*x)+1; soma2:=soma2+soma; // End; Write ('Dada a formula (n*n)+1,a soma dos ',num,' numeros e :',soma2); //exibe a mensagem uma vez End. Program Pzim ;{1. Faca um programa que armazene 5 nomes em um vetor.Apos ser digitado um nome, se for encontrado no vetormostrar a posicao desse nome no vetor, caso contrariomostrar a mensagem: Nao enconteri!.}varnome:array[1..5] of string; //variavel vetor para armazanar os nomesi:integer; //contadorcons_nome:string; //variavel para receber o nome a ser consultado no vetor Begin for i:=1 to 5 do //cadastra os 5 nomes no vetor begin writeln('Digite o ',i,'o. nome : '); readln(nome[i]); clrscr; //limpa a tela end; writeln(' C O N S U L T A N O M E '); writeln; writeln('Digite um nome para consulta : '); //recebe o nome a ser consultadp readln(cons_nome); for i:=1 to 5 do begin if (nome[i]=cons_nome) then //se no vetor na posicao i, o nome for igual a consulta de nome, begin