• Массив из 10 элементов,найти все трехзначные числа и кратные 5
    (pascalABC)

Ответы 2

  • // PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(10,1,2000); a.Println;  a.Where(x->x.InRange(100,999) and (x mod 5=0)).Printlnend.Пример1337 1824 163 415 330 1865 180 1695 539 551415 330 180
    • Автор:

      daisycxtr
    • 5 лет назад
    • 0
  • program test;vararr:=ArrRandom(10,1,2000);a,b,i: integer;beginfor i:=0 to 9 doif (arr[i] div 100 > 0) and (arr[i] div 100 < 10) and (arr[i] mod 5 = 0) thenwrite(arr[i]+' ');end.
  • Добавить свой ответ

Войти через Google

или

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

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

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