• Помогите пожалуйста, срочно надо.
    Заранее большое спасибо)
    1) Определите и выведите на экран количество четырехзначных чисел, которые делятся без остатка одновременно на 5 и 11.
    2) Найдите и выведите на экран все двузначные числа, у которых при умножения на 2 сумма цифр увеличивается на 5.

Ответы 1

  • 1)var a,b:integer;beginb:=0;for a:=1000 to 9999 dobeginif (a mod 5=0) and(a mod 11=0)then b:=b+1;end;writeln(b);end.2)var a,b:integer;beginfor a:=10 to 99 dobeginif 2*a<100 thenbeginif (a mod 10 + a div 10+5)=(2*a mod 10 +2*a div 10) then writeln(a);end;if 2*a>100 thenbeginb:= 2*a div 10;if (a mod 10 + a div 10+5)=(2*a mod 10+ b mod 10+ b div 10)then writeln(a);end;end;end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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