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

1-ая задача: Определить, имеется ли в заданном целочисленном массиве X(N) число, кратное заданным числам A и B, и не кратное числу C. Помогите пожалуйста на нее составить словесную форму и Листинг.2-ая задача:Даны действительные положительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами a, b, c в прямоугольное отверстие со сторонами x и y/ Просовывать кирпич разрешается только так, чтобы каждое из его ребер было параллельным или перпендикулярным каждой из сторон отверстия. Помогите пожалуйста на нее составить словесную форму и Листинг.
5 ответов

Задачка про кирпичи обсуждалась не раз в инете. Например, http://solver.3dn.ru/publ/10-1-0-3.А по первой задачке - http://www.forum.softweb.ru/showthre...=10207&page=73 - 7 и 8 посты на страничке.В результате - при поиске через Яндекс - решение второй задачи - в первых 10 пунктах. Решение первой задачи - в пунктах с 20 по 30. Пользуйся поиском прежде чем спросить.


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('&#247;&#232;&#241;&#235;&#238;:',x[i]);
 end;
end.


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


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


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