По информатике. найти сумму цифр данного целого - вопрос №6173052 от Anonim2118 30.01.2023 00:47

Question

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

Anonim2118 · 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....