//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadSeqIntegerWhile(x->x<>0).ToArray();
a.Transform(x->x*x);
write(a.Sum());
end.
Отец сказал: "Сынок,после школы зайди в магазин и купи хлеб с молоком".
Получил задание - Сохранил в памяти - Выполнил задание
С
помощью функции "ОТБР", которая усекает число до целого, отбрасывая дробную часть
числа, так что остается целое число, исходное число делим на разряды, которые
затем суммируем
Пример решения в файле