Question

Escreva um programa em pascal que imprima o quadrado dos números no intervalo fechado de 1 a 20.

Use o comando while ou repeat.

Answer 1

Program qudradoUmaAteVinte ;
 var contador:integer;
  Begin
contador:=1;  // Fechado 1>=x<=20 
 while (contador<=20)  do  begin
// testar writeln('Quadrado de ',contador,'=',contador*contador);              
writeln(contador*contador);             
contador:=contador+1; 
end ;    
End.