• Помогите, пожалуйста, с задачей по информатике в Паскаль!
    Условие: Определите, имеется ли в заданном целочисленном массиве x(N) число, кратное заданным числам A и B и не кратное числу C.

Ответы 1

  • Program n1;const n=7;var x: array [1..n] of integer;a,b,c,i: integer;beginwriteln('ввод массива: ');for i:=1 to n dobeginwrite('введите ',i,' элемент массива: ');readln(x[i]);end; write('введите числа а,b,c: ');readln(a,b,c); if (x[i] mod a=0) and (x[i] mod b=0) and (x[i]<>c) then writeln('есть такое число')else writeln('в массиве нету такого числа');end.
    • Автор:

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

Войти через Google

или

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

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

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