program del;
uses crt;
var chisla: array[1..15] of integer;
n, i, k:integer;
begin
clrscr;
write ('Введите кол-во чисел: ');
readln (n);
for i:=1 to n do
begin
write ('Введите 'i'-тое число: ');
readln (chisla[i]);
end;
for i:=1 to n do
if ((chisla[i] mod 3=0) and (chisla[i] mod 5=0) and (chisla[i] mod 7=0)) then
k:=k+1;
write ('На 3, 5 и 7 одновременно делятся ',k,' чисел.');
readln;
end.
У меня щас компилятора нету, так что не проверял. Если есть ошибки, или вопросы - стучись в личку.
Не трать деньги на этот мусор, собранное из него это позавчерашний день! Проц бери хотя бы I3, а памяти не меньше 3Г. Причём, повторюсь, практически за те же деньги.
Если это как бы виртуально, то есть абстрактная задача, то такого рода задачи решаются, например, так
1. Комплектующие раскладываются на "кучки", у тебя это будут отдельные списки, отдельно CPU(процессоры), MB(мамы), Memory(память), HDD(винты) ну и так далее.
В каждом списке основные х-ки, стоимость.
Далее смотришь на то, что в конце-концов хочешь получить и набираешь наилучший вариант, если вышел за лимит стоимости, начинаешь "жертвовать" чем либо, заменяя на более дешёвый вариант. В конце концов получится один или несколько примерно равных вариантов.
Ну, например, если заниматься медиа-, нужжен мощный проц, звуковуха, видеокарта, колонки.
Если играть в игры - то основное видеокарта
Если офисный вариант, то всё по-среднему, всё равно тексты набирать в Ворде.
НО, повторюсь, предлагаемые тобой комплектующие - на сегодняшний день -МУСОР, из которого ничего стоящего собрать нельзя, даже офисный вариант будет слабоват.
Кстати, сейчас, например, LCD-19' стоят всего $100-150. И нужно брать 22-24'', которых у тебя в списке нет.