Написать программу в паскале. Дано натуральное число n (n

Question

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

Answer 1

92

againsthewall

08 августа 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: