Значение величины равно ‘1076’

подвести курсор к элементу удаления 

нажать клавишу backspace. 

на паскале:

var

n,s,p: integer;

begin

read(n);

p: =n mod 10;

if p mod 2=0 then writeln ('оканчивается на четную цифру')

                    else writeln ('оканчивается на четную цифру');

while n> 0 do

begin

n: =n div 10;

s: =s+1;

end;

writeln ('количество цифр в числе', s);

end.

var a,b,s: integer; begin readln(a); while a> =10 do begin b: =a mod 10; s: =s+sqr(b); a: =a div 10; end; a: =a*a; s: =s+a; writeln(s); readln; end.в s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!

сад гад год код кот