По информатике. найти сумму цифр данного целого - вопрос №6173052 от uradovskiy2015 20.09.2021 08:21

Question

Информатика: По информатике. найти сумму цифр данного целого числа. программа. паскаль

uradovskiy2015 · Answer

Var a,s,k:integer;beginwrite( введите число: );readln(a);while a 0 do begink:=a mod 10;s:=s+k;a:=a div 10;end;writeln( сумма цифр  равна ,s);end....