Pascal ( //комментарии к программе, т.е. пояснение строки)
Var a,b,c,d:integer; begin Write('Введите трехзначное число'); read(a); b:=a div 100; // число сотен c:=a mod 100 div 10; // число десятков d:=a mod 10; // число единиц s:=b+c+d; // складываем цифры Write('Сумма цифр трехзначного числа равна: ',s); end.
Answers & Comments
Verified answer
Pascal ( //комментарии к программе, т.е. пояснение строки)Var a,b,c,d:integer;
begin
Write('Введите трехзначное число'); read(a);
b:=a div 100; // число сотен
c:=a mod 100 div 10; // число десятков
d:=a mod 10; // число единиц
s:=b+c+d; // складываем цифры
Write('Сумма цифр трехзначного числа равна: ',s);
end.