Задача по массивам и циклам на Языке Паскаль.

[Rafael777]

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

2-ая задача:

Даны действительные положительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами a, b, c в прямоугольное отверстие со сторонами x и y/ Просовывать кирпич разрешается только так, чтобы каждое из его ребер было параллельным или перпендикулярным каждой из сторон отверстия. Помогите пожалуйста на нее составить словесную форму и Листинг.

[Roof]

Задачка про кирпичи обсуждалась не раз в инете. Например, http://solver.3dn.ru/publ/10-1-0-3.

А по первой задачке - http://www.forum.softweb.ru/showthre...=10207&page=73 - 7 и 8 посты на страничке.

В результате - при поиске через Яндекс - решение второй задачи - в первых 10 пунктах. Решение первой задачи - в пунктах с 20 по 30.

Пользуйся поиском прежде чем спросить.

[Sparky]

1 задача:

program ex;
const
     n=10;
var
   x:array[1..n] of integer;
   a,i,c,u:integer;
begin
     for i:=1 to n do
         readln(x[i]);
     readln(a);
     readln(c);
     readln(u);
     for i:=1 to n do
     begin
          if (x[i] mod a=0) and (x[i] mod u=0) and (x[i]mod c<>0) then writeln('÷èñëî:',x[i]);
     end;
end.

[Rafael777]

а че там в последнем описании у тебя зеленым шрифтом: writeln('÷èñëî:',x[i])???

[Stilet]

а че там в последнем описании у тебя зеленым шрифтом:

Это не у него а на форуме - подсветка синтаксиса.

[Rafael777]

а можешь помочь по 1-ой задаче словесную форму придумать??? пжл