Регистрация
Evelynimmortal
20.01.2021 01:50
Информатика
Есть ответ 👍


решить через !
var a,b,x,s,p: integer;
begin writeln(' ввести х');
readln(x);
тут нужно что то написать ;
writeln(' сумма цифр=' ‚s);

234
242
Посмотреть ответы 2

Ответы на вопрос:

Sashska13me
Sashska13me
4,8(94 оценок)

var

  a, b, x, s, p: integer;

begin

  writeln(' ввести х');

  readln(x);

  s : = 0;

  x : = abs(x); { защита от ввода отрицательных }

  while x > 0 do

  begin

    s : = s + x mod 10;

    x : = x div 10

  end;

  writeln(' сумма цифр=', s);

end.

taty30
taty30
4,4(40 оценок)

55

Объяснение:

По системе кодировки ASCII

Популярно: Информатика