Ваши друзья не знают про этот решебник.
Урок 16. Задание 8.
|
Program symm2; var a,v,l,s,rd,red:integer; begin read(a); v:=a mod 10; l:=a div 10; rd:=l mod 10; red:=l div 10; s:=rd+red+v; writeln('Сумма цифр числа ',a:4,' равна ', s:3); end. |