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

Ответы 1

  • 1)//PascalABC.NET//Версия 3.3, сборка 1611beginwrite(range(ReadInteger('A='),ReadInteger('B=')).Where(x-> x mod 4=0).Sum());end.2)//PascalABC.NET//Версия 3.3, сборка 1611beginwrite(range(10,99).Where(x->(x mod 10)+(x div 10)=10).Aggregate(Real(1),(x,y)->x*y));end.3)//PascalABC.NET//Версия 3.3, сборка 1611beginwrite(range(10,99).Where(x->((x mod 10)+(x div 10)) mod 5=0).Count());end.
    • Автор:

      piggyyjp4
    • 4 года назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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