Mail.ruПочтаМой МирОдноклассникиИгрыЗнакомстваНовостиПоискComboВсе проекты

Помогите пожалуйста написать комментарий к этой программе.

Ирина Омелюх Ученик (245), закрыт 2 года назад
Program task_4;
var
a:integer; // ваш комментарий. зачем эта переменная
d:integer; // ваш комментарий. зачем эта переменная
s:integer; // ваш комментарий. зачем эта переменная
k:integer; // ваш комментарий. зачем эта переменная
begin
write(Введите число - );
readln(a);
k:=1; // ваш комментарий оператора
s:=a mod 10; // ваш комментарий оператора
d:=a div 10; // ваш комментарий оператора
while d<>0 do // ваш комментарий условия, почему оно такое
begin
s:=s+d mod 10; // ваш комментарий оператора
k:=k+1; // ваш комментарий оператора
d:=d div 10 // ваш комментарий оператора
end;
writeln(Сумма цифр числа равна - ,s:7,  Количество цифр - ,k:7);
readln
end.
Лучший ответ
Остальные ответы
Похожие вопросы
Также спрашивают