Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 15.05.2009, 23:04   #1
kotenkin-kiss
Новичок
Джуниор
 
Регистрация: 15.05.2009
Сообщений: 1
По умолчанию задача на паскале

Вводится размер одномерного массива A(N) и его элементы. Вывести на экран количество нечетных составных чисел.

помогите пожалуйста с решением этой задачи
kotenkin-kiss вне форума
Старый 16.05.2009, 07:23   #2
DM_bite
Участник клуба
 
Аватар для DM_bite
 
Регистрация: 29.07.2008
Сообщений: 1,091
По умолчанию

Код:
program xDDD;
function Simple(n: integer):boolean;
var i: integer;
    begin
    for i:= 2 to (n div 2) do
     begin
     if n mod i = 0 then Simple:= false
     else Simple:=true;
     end;
     end;
const n=10;
var a:array [1..n] of integer;
    k,i: integer;
begin
randomize;
k:=0;
for i:= 1 to n do
 begin
 a[i]:= random(n);
 WriteLn(a[i],'__');
 if not  (simple(a[i])) and not (a[i] mod 2 = 0) then inc(k);
 end;
 WriteLn(k);
ReadLn;
end.
Где-то так.
Кто бы ты ни был - не думай о себе слишком (с)
DM_bite вне форума
Старый 02.12.2010, 17:08   #3
mayoneznaya_feya
Новичок
Джуниор
 
Регистрация: 02.12.2010
Сообщений: 6
По умолчанию

Ребят, помогите пожалуйста решить задачи!! ну или хотя бы помогите понять что от меня требуется!!)
1.Дана матрица размером 5Х5 элементов, случайным образом заполненная. Сформировать одномерный массив В, где B(j) равно 0,если индекс максимального значения оказывается меньше чем у минимального значения в столбце. В противном случае B(j)-1.
2. Дана произвольная строка символов. Распечатать слова,в которых нет повторяющихся символов.
mayoneznaya_feya вне форума
Старый 02.12.2010, 18:11   #4
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,645
По умолчанию

Цитата:
Сообщение от mayoneznaya_feya Посмотреть сообщение
...помогите понять что от меня требуется!!)
требуется прочитать правила форума и данного раздела, затем показать свои наработки или озвучить цену за полное решение.
ICQ: 421277094
eoln вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача на Паскале Вика М. Помощь студентам 4 02.12.2010 17:37
Задача в Паскале Antoha79 Помощь студентам 4 22.04.2009 15:00
Задача на паскале BBED Паскаль, Turbo Pascal, PascalABC.NET 1 19.11.2008 12:32