Postagens
Não informado
Pessoal tenho um problema não consigo fazer o seguinte programa usando a estrutura while
Apresentar o quadrado dos números inteiros de 15 a 200. Já fiz o código mas não funciona... Será alguém sabe o q tá errado
program quadrado;
uses crt;
var n,q:integer;
begin;
clrscr;
write('Digite n£meros inteiro entre 15 e 200');
readln;
while(n<=15)and(n>=200) do
begin
write('Digite um n£mero: ');readln(n);
q:=sqr(n);
write('O quadrado do n£mero que vocˆ digitou ‚: ',q);
end;
repeat until keypressed;
end.
