Информатика visibility 43 просмотров

Вопрос:

Написать программу в паскале. Дано натуральное число n (n<1000)Определить:а) сколько цифр в числеб) чему равна сумма его цифр

Ответ редакции

Program;uses crt;varn:string;i,k,r,c,b:integer;num:array [1..4] of char;beginwriteln(‘vvedite celoe chislo <1000:’);read(n);k:=length(n);writeln(‘Cufr v chisle: ‘,k);for i:=1 to k dobeginnum[i]:=n[i];val(num[i],c,b);r:=r+c;end;writeln(‘Ux cymma : ‘,r);end.

Написать программу в паскале. Дано натуральное число n (n<1000)Определить:а) сколько цифр в числеб) чему равна сумма его цифр

Ответить на вопрос