Изобразите блок-схему алгоритма, который находит m в степени 3

сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

пусть х основание системы счисления, тогда:

122х (здесь х должен стоять нижним индексом) = 1*х² + 2*х¹ + 2*х⁰=х²+2х+2 - это десятичная запись исходного числа, значит:

х²+2х+2=65

х²+2х-63=0

д= 4 + 252 = 256

х₁ = (-2-  16)/2 = -9 (не удовлетворяет)

х₂ = (-2 + 16)/2 = 7

ответ. основание системы счисления = 7.

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.