Составьте программу для решениясоставьте программу - вопрос №2429127 от RocketBubbleGum007 24.02.2021 12:04

Question

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

RocketBubbleGum007 · Answer

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