Регистрация
Кира4311
13.07.2020 01:28
Информатика
Есть ответ 👍

Пернетақта сөзіне сөйлем​

267
272
Посмотреть ответы 1

Ответы на вопрос:

ксюшка485456
ксюшка485456
4,5(40 оценок)
//pascal abc.net v3.1 сборка 1172 var   n,c,s: integer; begin   read(n);   while n< > 0 do   begin     c: =n mod 10;     s: =s+c;     n: =n div 10;   end;   writeln(s); end. пример ввода: 123 пример вывода: 6

Популярно: Информатика