Составьте программу для решениясоставьте программу - вопрос №2428225 от Nikito23 22.01.2023 01:48

Question

Информатика: Составьте программу для решениясоставьте программу для решения следующей с использование цикла с предусловием: «выведите все точные квадраты натуральных чисел, не превосходящие данного числа n».

Nikito23 · Answer

Var n,i:integer;beginread (n);for i:=1 to n doif sqr(i) =n then writeln (sqr(i));end....