napmartins

Não deu =/ Ele não encontra esse fp.exe

Obrigada Iago! Porém toda vez que eu instalo não acho no meu computador em lugar algum o atalho para abrir o programa. o que será que acontece?

Olá, Gostaria de instalar o Free Pascal pois usarei na faculdade. Algum download de confiança? E como instalar? Obrigada!

Acabei fazendo desta maneira... Não sei se está correto mas fui pela minha lógica. program cadeia (input{teclado}, output{video});procedure lerValor(var n: integer{s});Begin write(output, 'Digite um valor: '); readln(input, n); while (n < 1) do Begin write(output, 'Digite um valor maior que 1: '); readln(n);end;end;procedure exibeLinhas(n: integer{e});vari, j: integer;Beginfor i := n downto 1 doBeginfor j := i downto 1 do write(output, (n-i+1)*(n-i+1), ' ');writeln(output);end; end;varn: integer;begin lerValor(n); exibeLinhas(n); readln();end.

Olá, gostaria que alguém me ajudasse a resolver esta questão... já fiz de várias formas mas não consegui resolve-la de jeito algum. Obrigada. Escreva um programa em Pascal que leia do teclado um inteiro n, maior ou igual a 1, e que apresente no vídeo n linhas da forma abaixo. Por exemplo, as seguintes linhas devem ser apresentadas se n = 5. 1 1 1 1 1 4 4 4 4 9 9 9 16 16 25 Se n < 1, uma mensagem de erro deve ser apresentada no vídeo.