Написать реализующую алгоритм программу на языке паскаль. даны натуральные числа n и m. получить сумму m последних цифр числа n. числа n и m пользователем

tamer20052 tamer20052    3   03.09.2019 09:30    2

Ответы
alenaefremova79 alenaefremova79  06.10.2020 14:24
Var
  m, n, sum, z: integer;

begin
writeln('Введите числа n и m');
readln(n);
readln(m);
while (n>0) and (m>0) do begin
  z:=n mod 10;
  sum:=sum+z;
  n:=n div 10;
  dec(m);
end;
  writeln('сумма последних цифр ', sum);
  if (m>=0) and (n=0) then
     writeln('найдена сумма всех цифр');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика