Efetuar a leitura de um número inteiro e apresentar o resultado desse número quadrado
Pseudocódigo:
programa exercicio11 var numero, quadrado : inteiro; inicio leia numero; quadrado ← numero ^ 2; escreva quadrado; fim.
Pascal:
// Autor: Rafael Oliveira
// Data: 28/12/2013
Program exercicio11;
uses crt;
var
numero, quadrado : integer;
Begin
writeln('Insira um numero');
readln(numero);
quadrado := sqr(numero);
writeln('O numero ao quadrado = ', quadrado);
writeln('Pressione para fechar');
readkey;
End. Nota:
sqr(x): Retorna o valor de x elevado ao quadrado (x²)