Var
n,k,s,d:longint;
begin
Write('Введите натуральное число: ); Readln(n);
s:=0; k:=0;
while n<>0 do begin
d:=n mod 10;
Inc(k);
s:=s+d;
n:=n div 10
end;
Writeln('Количество цифр равно ',k,', сумма цифр равна ',s)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число: 157832
Количество цифр равно 6, сумма цифр равна 26
//Sorry I know only C++ language
#include<iostream>
using namespace std;
int main(){
<span> char a,b,c,d,a2,b2,c2,d2;</span><span>
cin>>a>>b>>c>>d;
</span><span> a2=a-48;
</span><span> b2=b-48;
</span><span> c2=c-48;</span><span>
d2=d-48;
</span><span> cout<<(a2+b2+c2+d2)%4;</span>
return 0;}<span>
</span>
Необходимо это в первую очередь для того, чтобы визуально разграничивать фрагменты текста между собой.
Какой скажи рисунок надо сделать попробую помочь