23-10111
09-00001001
01-00000001
2002-11111010010
2008-11111011000
2017-11111100001
Uses crt;
var a,b: Integer;
Begin
Write('Введите целое число: ');
Read a;
While a>0 do
Begin
b:=b+a mod 10;
a:=a div 10;
End;
Writeln('Сумма цифр введённого числа равна ', b);
End.
Y:=x*Cos(x)*Ln(abs(x) ) / sqrt(1+ x*x*x)
Z:=sqrt(abs(10*y-sin(2*Pi*y)) )*(1/Tan(x+y)-1)/18
<span>Универсальное программа управляемое устройство для оброботки информации это </span>компьютер
Да все правильно.
молодец