Задать вопрос Регистрация
Помочь другим

  • Помогите пожалуйста! Совсем этого не понимаю. Нужно в программе кумир.
    Задача:

    Дано четырёхзначное число,найти сумму чисел этого числа.

     

     

Ответы 2

  • BeginX, y, a, b:integer;BeginWrite(x,y,a,b)I:=x+y+a+bReadEnd

  • А я сделала!

     

     

    Var c,c1,c2,c3,c4 : integer;

    Begin 

    read(c);

    c1:=(c div 1000);   {нашли первую цыфру}

    c4:=(c mod 10);   {нашли вторую цыфру}

    c3:=(c mod 100) div 10; {третья цыфра}

    c2:=(((c mod 1000)div 100)mod 10); {ну и вторая цыфра}

    write(c1,c2,c3,c4);

    End.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years