вводится любые числа и находится их сумма его цифр - Turbo Pascal

Формулировка задачи:

в программе вводится любые числа и находится их сумма его цифр

Код к задаче: «вводится любые числа и находится их сумма его цифр - Turbo Pascal»

textual
var
  a, s : integer;
begin
  s := 0;
  write('введтите любое число: ');
  readln(a);
  while a <> 0 do
  begin
    s := s + (a mod 10);
    a := a div 10
  end;
  writeln('сумма цифр: ', s);
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы