Анюта !!!
Помогите решить задачу, очень буду благодарна!!))!!! Я работаю в geany,но можно и паскаль)
----Определить сумму квадратов и кол-во введённых чисел. При Аi+1>Ai.Закончить работу
----Определить сумму квадратов и кол-во введённых чисел. При Аi+1>Ai.Закончить работу
s:=0;
k:=0;
readln (a);
repeat
k:=k+1;
s:=s+a*a;
b:=a;
readln(a);
until b>a