Exercicio de algoritmo

[Marlon Nisiide]

Program Pzim ;
var x,n : integer;
 Begin               
     x:= 0;
    n:= 0;
    write('Informe o primeiro numero: ');
    read(x);
    while (x>=0) do
    begin
        if(x>=0) then
        begin
            N:= N+1;
        end;
        write('Informe outro numero: ');
        read(x);   
    end;
    Write('Você escreveu ',N,' numero positivos');
 End.

--
Marlon Mitsuhiro Nisiide
Desenvolvimento

TecnoSpeed Tecnologia da Informação
Avenida Duque de Caxias, 882, Salas 102 - 909
CEP - 87020-025 - Maringá - Paraná - Brasil
www.tecnospeed.com.br

[muller]

que exercios e esse eu faltei ontem

2011/5/19 Marlon Nisiide <mar...@tecnospeed.com.br>

--
Muller Cezar Bisconcim

Tec - Adm - Estado do Parana

http://twitter.com/Muller_cezar/