TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

Programa Pzim

Resenha: Programa Pzim. Pesquise 860.000+ trabalhos acadêmicos

Por:   •  7/11/2013  •  Resenha  •  226 Palavras (1 Páginas)  •  372 Visualizações

Program Pzim ;

uses crt;

Var a,b,c,d:integer;

Begin

writeln('Digite 2 números inteiros');

readln(a,b);

c:=(a)mod(b);

d:=(a)div(b);

writeln(chr(255), a, chr(255), chr(255), chr(186), chr(255), chr(255), b);

writeln(chr(255), chr(255), chr(255), chr(255), chr(200), chr(205), chr(205), chr(205), chr(205));

writeln(chr(255), c, chr(255), chr(255), chr(255), chr(255), d);

readkey;

End.Program Pzim ;

uses crt;

Var a,b,c,d:integer;

Begin

writeln('Digite 2 números inteiros');

readln(a,b);

c:=(a)mod(b);

d:=(a)div(b);

writeln(chr(255), a, chr(255), chr(255), chr(186), chr(255), chr(255), b);

writeln(chr(255), chr(255), chr(255), chr(255), chr(200), chr(205), chr(205), chr(205), chr(205));

writeln(chr(255), c, chr(255), chr(255), chr(255), chr(255), d);

readkey;

End.Program Pzim ;

uses crt;

Var a,b,c,d:integer;

Begin

writeln('Digite 2 números inteiros');

readln(a,b);

c:=(a)mod(b);

d:=(a)div(b);

writeln(chr(255), a, chr(255), chr(255), chr(186), chr(255), chr(255), b);

writeln(chr(255), chr(255), chr(255), chr(255), chr(200), chr(205), chr(205), chr(205), chr(205));

writeln(chr(255), c, chr(255), chr(255), chr(255), chr(255), d);

readkey;

End.Program Pzim ;

uses crt;

Var a,b,c,d:integer;

Begin

writeln('Digite 2 números inteiros');

readln(a,b);

c:=(a)mod(b);

d:=(a)div(b);

writeln(chr(255), a, chr(255), chr(255), chr(186), chr(255), chr(255), b);

writeln(chr(255), chr(255), chr(255), chr(255), chr(200), chr(205), chr(205), chr(205), chr(205));

writeln(chr(255), c, chr(255), chr(255), chr(255), chr(255), d);

readkey;

End.Program Pzim ;

uses

...

Disponível apenas no TrabalhosGratuitos.com
Ler documento completo Salvar