28 декабря, 03:06

Дано 4 х значное число найти сумму его чисел - программирование

+3
Ответы (1)
  1. 28 декабря, 04:47
    0
    Var n, s:integer;

    x1, x2, x3, x4:integer;

    begin

    write ('Vvedite N = ');

    read (n);

    x1:=n div 1000;

    x2:=n mod 1000 div 100;

    x3:=n mod 100 div 10;

    x4:=n mod 10 div 1;

    s:=x1+x2+x3+x4;

    writeln (s);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Дано 4 х значное число найти сумму его чисел - программирование ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы