Выведите все точные квадраты натуральных чисел, - вопрос №76245 от ник5041 09.12.2022 22:18

Question

Информатика: Выведите все точные квадраты натуральных чисел, не превосходящие данного числа n. формат входных данных задано единственное число n. формат выходных данных необходимо вывести все точные квадраты натуральных чисел, непревосходящие данного числа n.

ник5041 · Answer

var  i,n:integer; begin readln(n); for i:=1 to n-1 do write(i*i:5); end....