Выведите все точные квадраты натуральных чисел, - вопрос №75343 от rajbowa1 15.12.2020 01:27

Question

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

rajbowa1 · Answer

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