• дан массив X(N). найти произведение тех элементов массива значения которых заключены в интервале [А,В] и кратны 3 или 5

Ответы 1

  • a:array[1..10000] of integer;i, n, a, b, k:integer;begink:=1;readln(n, a, b);for i:=1 to n doreadln(a[i]);for i:=a to b doif ((a[i] mod 3)=0) or ((a[i] mod 5)=0) then k:=k*a[i];writeln(k);readln;end.
  • Добавить свой ответ

Войти через Google

или

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

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

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