Задание:
Написать программу в паскале. Дано натуральное число n (n<1000) Определить: а) сколько цифр в числе б) чему равна суммаего цифр
Решение:
Program znanijacom; 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.
Знаете другой ответ?