• Предмет: Информатика
  • Автор: dshalabaev123
  • Вопрос задан 7 лет назад

Что вычисляет представленная программа, если n – натуральное число?
var n, a, b: integer;
begin
readln(n);
b:=0;
while n<>0 do
begin
a:=n mod 10;
n:=n div 10;
b:=b+a;
end;
writeln(b);
end.


Количество цифр в числе n.
Сумму цифр числа n.
Произведение цифр числа n.
Первую цифру числа n.
Знакочередующую сумму цифр числа n.
Перевернутое в обратном порядке число n.

Ответы

Ответ дал: answer2020
0

Ответ:

Сумму цифр числа n.

Ответ дал: dshalabaev123
0
Спасибо, можете помочь еще с другими задачами?
Ответ дал: dshalabaev123
0
Определите значение s после выполнения следующих операторов.
s1:=0; i:=1;
repeat s1:=s1+i*i; i:=i-1 until i<=1;
s2:=1; n:=1;
for i:=2 to n do s2:=s2+5*i;
s:=s1+s2;
Похожие вопросы