• Lenguaje

    Pascal

  • Descripción

    Genere una tabla de los cuadrados y los cubos de los números enteros del 1 al 10. La tabla resultante debe tener la siguiente forma:
    Número | Cuadrado | Cubo
    1 | 1 | 1
    2 | 4 | 8

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program TablaDeCuadradosYCubos;
uses crt;

var i : integer;
var cuadrado, cubo, numero : real;
begin
    for i:=1 to 10 do
    begin
        writeln ('PROCESO ', i);
        numero := i;
        cuadrado := numero*numero;
        cubo := cuadrado*numero;
        writeln ('Valor de cuadrado: ', cuadrado:0:6);
        writeln ('Valor de cubo: ', cubo:0:6);
        writeln ('Valor de numero: ', numero:0:6);
        writeln;
    end;
end.