С клавиатуры вводится целое положительное число. Определить сколько в нем цифр и…

Question

60

С клавиатуры вводится целое положительное число. Определить сколько в нем цифр и найти сумму цифр этого числапаскаль

в избранное ссылка

Знаете ответ?

aboltus · Accepted Answer

59

aboltus

22 марта 2023

Var a,b,c,k,d: integer; beginread (a); b: =0; c: =10; d: =0; while k<>o do begink: =a div c; b: =b+a mod c; c: =c+10; d: =d+1; end; write (d,b); end.

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

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