• В паскале составить программу:

    определить делимость на 3 для четырехзначного числа.

    (думаю, что надо использовать св-во делимости числа: число будет делиться на 3, если сумма цифр этого числа будет делиться на три)

Ответы 1

  • var

      a: 1000..9999;

      a1, a2, a3, a4: 0..9;  //Цифры четырехзначного числа

     

    begin

      writeln('Введите четырехзначное число');

      readln(a);

      a1:= a div 1000;

      a2:= (a mod 1000) div 100;

      a3:= (a mod 100) div 10;

      a4:= a mod 10;

      if (a1 + a2 + a3 + a4) mod 3 = 0 then writeln(a, ' делится на 3')

      else writeln(a, ' не делится на 3');

    end.

    • Автор:

      chandler
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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