-
Lenguaje
Pascal
-
Descripción
Pide un número entero y muestra su tabla de multiplicar del 1 al 10
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program tabla;
uses crt;
var i, numero, resultado : integer;
var key : char;
begin
write ('Ingrese un n'#163'mero: ');
readln (numero);
writeln;
for i := 1 to 10 do
begin
resultado := i * numero;
writeln (numero, ' '#158' ', i, ' = ', resultado);
end;
write (#10#13'Presione una tecla para terminar . . . ');
key := readkey;
end.
uses crt;
var i, numero, resultado : integer;
var key : char;
begin
write ('Ingrese un n'#163'mero: ');
readln (numero);
writeln;
for i := 1 to 10 do
begin
resultado := i * numero;
writeln (numero, ' '#158' ', i, ' = ', resultado);
end;
write (#10#13'Presione una tecla para terminar . . . ');
key := readkey;
end.