Связь с администрацией сайта:       

demo

Среди толпы я одинок

Даны натуральные числа n, m. Получить сумму m последних цифр числа n.

      Даны натуральные числа n, m. Получить сумму m последних цифр числа n. Разберем пример программы через цикл с постусловием на языке Pascal(Паскаль).

 

 

Var n:longint; 
i,m,s:integer; 
Begin 
Writeln('Введите n:'); 
Readln(n); 
Writeln('Введите m:'); 
Readln(m); 
s:=0; 
i:=0; 
Repeat 
i:=i+1; 
s:=s+n mod 10; 
n:=n div 10; 
Until i=m;; 
Writeln('Сумма=',s); 
Readln; 
End.

 

 

Rate this item
(0 votes)
Login to post comments