Deixe sua pergunta sobre algoritmos em pascal aki
program Impar;
var
Soma, Cont: Integer;
begin
Soma := 0;
for Cont := 1 to 100 do
begin
if Cont mod 2 <> 0 then
begin
Soma := Soma + Cont;
end ;
end;
Writeln('A soma dos numeros impares de 1 a 100 e:',Soma);
readln;
end.
opa galera queria saber se esse meu algoritmo para saber a somatório de números ímpares entre 1 até 100 está certo muito obrigado (a) pela atenção
Discussão (0)
Carregando comentários...