Вывести квадраты чисел от 1 до N.
В ПАСКАЛЕ написать программу (НЕ ИСПОЛЬЗУЯ for и с циклами WHILE или REPEAT)
В ПАСКАЛЕ написать программу (НЕ ИСПОЛЬЗУЯ for и с циклами WHILE или REPEAT)
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var x,y,N:integer;
begin
write('Enter N: ');
readln(N);
x:=1;
while y<N do begin
y:=x*x;
if y<n then
write(y,' ');
x:=x+1;
end;
writeln;
end.