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

  • Дано четырехзначное число. Написать программу, которая определяет равна ли сумма первых двух его цифр сумме двух его последних цифр.

Ответы 2

  • var 

    a,a1,a2,a3,a4:integer;

    begin

    readln (a);

    a1:=a div 1000 ;

    a2:=a div 100 mod 10;

    a3:=a div 10 mod 10;

    a4:=a mod 10;

    if (a1+a2) = (a3+a4) then writeln ('Равена')

    else

    writeln ('Не равна');

    end.

    • Автор:

      guerrero
    • 5 лет назад
    • 0

  • var    a, a1, a2: integer;begin    read(a);    a1 := a div 1000 mod 10 + a div 100 mod 10;    a2 := a div 10 mod 10 + a mod 10;    writeln(a1 = a2);end.

    • Автор:

      reevebofw
    • 5 лет назад
    • 0

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

Еще вопросы

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

Войти через Google

 или

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

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

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