Atividade de TI

5. Desenvolver um algoristimo que efetue a soma de todos os números ímpares e que se encontram no conjunto dos números de 1 até 500.
Program Soma; var Numero: Integer;
SomaImpares: Integer; begin SomaImpares:= 0; for Numero:= 1 to 500 do if (Numero mod 2) = 1 then begin SomaImpares:= SomaImpares + Numero; end; writeln('A soma dos numeros impares de 1 a 500 eh: ',SomaImpares); write('Pressione para finalizar'); readln(); end.

02. Desenvolva um algoritmo que calcule o consumo de combustível de um automóvel em uma determinada viagem. O programa deve solicitar as seguintes informações ao usuário:
Quantos quilômetros têm a viagem?
Quantos quilômetros o carro faz por litro?
Qual o preço do litro do combustível?
O processamento do algoritmo deve mostrar:

Quantos litros de combustível serão gastos com a viagem.
Quanto dinheiro será gasto com combustível. program consumo_combustivel; var kmv, kml, plc, lgv, dgc: real; begin writeln('Informe quantos Km tem a viagem'); readln(kmv); writeln('Informe quantos Km o carro faz com um litro'); readln(kml); writeln('Informe o preco do combustivel'); readln(plc); lgv:=kmv/kml; dgc:=lgv*plc; Writeln('Vc gastara ',lgv:5:2,' litros de combustivel com viagem'); readln; Writeln('Vc gastara ',dgc:5:2,' reais com viagem'); readln; end
6. Fazer um programa que calcule a média aritmética de n números digitados pelo teclado. Até que o usuário informe o valor zero.

Program Media Aritmetica; var Numero, Media, Soma: real; x: integer; begin Soma:=0; x:=0; repeat write('Digite um numero real qualquer: '); readln(Numero); x:= x + 1;
Soma:= Soma + Numero;
Media:= Soma / x; writeln('A media dos números digitados eh: ', Media); until Numero = 0; readln(); end.
4. Tem-se um conjunto de dados contendo a altura e o sexo (M ou F) de 15 pessoas. Faça uma Programa que calcule e escreva: • a média de altura das mulheres; • número de homemens.
Program SexoAltura ; var Sexo: integer;