Программа подсчета суммы цифр числа

@Over77over · Регистрация: 15.09.2014

Как записать на языке матлаба, данную программу?

Pascal

var a,x:integer;
  i,s:integer;
 
begin
  writeln('введите целое число');
  readln( a ); x:=a;
  s:=0;
  while ( x<>0 ) do 
  begin
    s := s + (x mod 10);
    x := x div 10;
  end;
 writeln( 'Сумма цифр числа ',a,' = ', s );
end.

@Rootman · 26.03.2017, 08:47

Matlab M

x=34656745; % <-сюда положить число
a = x;
s=0;
while (x ~= 0)
    s = s + mod(x,10);
    x = fix(x/10);
end;
disp(['Число: ',num2str(a),', сумма цифр: ',num2str(s)]);

Добавлено через 10 минут
Вариант, если надо вводить число с клавы

Matlab M

x = str2num(input ('Введите число: ','s'));
a = x;
s=0;
while (x ~= 0)
    s = s + mod(x,10);
    x = fix(x/10);
end;
disp(['Число: ',num2str(a),', сумма цифр: ',num2str(s)]);

Опции темы

Программа подсчета суммы цифр числа

Решение