DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Show Delphi » Exercícios de algoritmos com laços » Faça um algoritmo que conte quantos algarismos 9 tem entre 0 e 100.

Faça um algoritmo que conte quantos algarismos 9 tem entre 0 e 100.

Olá pessoal! Tudo bem com vocês?

Vamos a um exercício bem legal proposto pelo membro da comunidade Fabricio Tureck.
O exercício é o seguinte:

Faça um algoritmo que conte quantos algarismos 9 tem entre 0 e 100.

Esse exercício é muito interessante porque a resposta do programa proposto já valeu um milhão de reais.

Mesmo que em tom de brincadeira, o exemplo é interessante, pois trabalhamos o conceito de laço duplo, ou seja, um laço dentro de outro laço, testes, e também vetores.

Sugestão de resposta em Delphi / Lazarus / Pascal

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

program project1LerNumeros;
 
uses
  SysUtils;
 
var
  numero: integer;
  i: integer;
  count: integer;
  NumeroTexto : String; // String é um vetor de caracteres dinâmico
 
begin
  count := 0;
 
  Writeln(Utf8ToAnsi('Vem ai a pergunta que vale 1 milhão reais!'));
  Writeln('');
  Writeln('Quantos noves existe entre 0 e 100?');
 
 
  for numero:= 0 to 100 do
  begin
    NumeroTexto := IntToStr(numero);
 
    { Percorrendo a string como um vetor de caracteres }
    for I := 1 to Length(NumeroTexto) do
    begin
      { Verificando se o dígito é igual a 9 }
      if NumeroTexto[i] = '9' then
      begin
        count := count + 1;
      end;
    end;
  end;
 
  Write(Utf8ToAnsi('Valendo 1 milhão de reais, a '));
  Writeln(Utf8ToAnsi('quantidade de números 9 entre 0 e 100 é... '));
 
  Writeln('');
  Writeln(count);
  Writeln('');
 
  Writeln('Certa resposta!!! kkkkkk');
 
  Readln;
end.

Execute o programa você também e saiba a resposta.
Para provar que estamos falando sério, assista o vídeo abaixo!

Espero que tenham acertado hein, kkkk.
Um abraço e até a próxima pessoal!
Valeu!

Facebook Comments Box
  • Franciele Benedetti
  • 2.925 views
  • 1 comentários
  • 15 de maio de 2020

Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!

Uma resposta para “Faça um algoritmo que conte quantos algarismos 9 tem entre 0 e 100.”

  1. Wesley disse:
    16 de maio de 2020 às 06:03

    só por curiosidade em python seria:

    qtos9=0
    for i in range(0,100):
    qtos9 += str(i).count(‘9’)

    print(qtos9)

Deixe um comentário

Posts Relacionados - Continue Aprendendo

    Patrocinado


    Patrocinado

    Patrocinado

Ir ao topo

© 2024 Infus Soluções em Tecnologia - Todos os Direitos Reservados