Люди добрые ! выведите все точные квадраты натуральных - вопрос №4915078 от katyanosa 16.08.2020 06:52

Question

Информатика: Люди добрые ! выведите все точные квадраты натуральных чисел, не превосходящие данного числа n. входные данные задано единственное целое число n выходные данные необходимо вывести все точные квадраты натуральных чисел, не превосходящие данного числа n. примеры входные данные 15 выходные данные 1 4 9

katyanosa · Answer

Var n,k:integer;beginwrite( n= ); readln(n);k:=1;while k*k =n do begin writeln(k*k); k:=k+1; end;end....