Linguagem c
258 palavras
2 páginas
1-)Program Naturaisuse crt;
var
A: Integer
Begin
A:=0;
Repeat
A:=A+1;
Until A= 100;
write( ‘valor’,A);
Readkey
End.
2-) Program Multiplos de sete
use crt;
var
M7,D: Integer
Begin
Repeat
M7:=M7+1;
D:= 0;
write ('M7');
until M7;=200;
End.
3-) Program Divisiveis por quatro
use crt;
var
D4,M : Integer;
Begin
Repeat
D4:= D4+1;
M:=0;
write ('D4');
until D4=100;
End.
4-) Program Divisores de um numero qualquer
use crt;
var
DNQ,V,M : Integer;
Begin
Write(' digite um valor');
Repeat
DNQ:=DNQ+1;
M:=DNQ*V;
if M:=0;
write (' DNQ');
End.
5-) Program Turma qualquer
use crt;
var
A,B, C,M : Integer
Begin
M:= (A+B+C)/3;
write (' a média é', média);
Readkey
End.
6-) Program Fatorial
use crt;
var
FV,AV :Integer ;
Begin
Repeat
write (' digite um valor');
FV!:= FV!-1;
F:=FV!*AV;
Write ('FV!');
End.
7-) Program Medidor
use crt;
var
L,X, : Integer
Begin
Repeat
write('digite um valor L');
Read( L);
X=X+1;
if L>X;
write (' o menor numero inteiro positivoé', X);
End.
8-) Program Tabuada do quatro
use crt;
var
T4,M : Integer ;
Begin
Repeat
T4=:T4+1;
M:= T4*4;
if M:= 0;
write ('T4');
End.
9-) Program Tabuada
use crt;
var
TNQ,VQ, M : Integer
Begin
Repeat
write (' digite um valor');
TNQ:=TNQ+1
M:=TNQ* VQ
if M:= 0
write (' TNQ');
End
10-) Program Media aritmedica
use crt;
var
NP,13: Integer;
Begin
NP:= 13+1;
if NP/2;
write ('NP');
until