TABUADA

OS CODIGOS

for

Program tabuada ;
var
n,i,g:integer;
p:string;
Begin
repeat
writeln('intruduza o numero desejado');
read(n);
For i:=1 to 10 do
Begin
g := i * n;
writeln(n,' * ',i,' = ',g);
end;
writeln('quer outro numero?');
read(p);
until (p) = 'nao'
End.

repeat until

Program tabuada ;
var
n,i,g:integer;
p:string;
Begin
repeat
writeln('intruduza o numero desejado');
read(n);
i:=1;
repeat
g:= n * i;
writeln(n,' * ',i,' = ',g);
i:= i + 1;
until i = 11;
writeln('quer outro numero?');
read(p);
until (p) = 'nao'
End.

while

Program Pzim ;
var
n,i,g:integer;
p:string;
Begin
repeat
writeln('intruduza o numero desejado');
read(n);
i:=1;
while i < 11 do
begin
g:= n * i;
writeln(n,' * ',i,' = ',g);
i:= i + 1;
end;
writeln('quer outro numero?');
read(p);
until (p) = 'nao'
End.

O RESULTADO FINAL