Turbo Pascal

[FEOFAN]

перечитай мой пост еще раз.

а если все элементы нечетные, что возвратит твоя прога? 1? а надо?

и еще. 0 - четное?

Епт, спасибо=) Видимо сказалось ночь(а может и моя невнимательность)

program m;
uses crt;
m:array[1..255] of byte;
i,p:integer;
begin
{тут код, где вводится массив}
i:=1;
p:=1;
while i<256 do begin
if (((mas[i] mod 2) = 0) and (mas[i] <>0)) then p:=p*mas[i];
i:=i+2;
end;

if (p<>1) then writeln('Произведение: ',p) else writeln('бла-бла-бла, не обнаружено!');
end.

И скажи спасибо за bug-tracking Меченгу.=)

 

[Hamster]

=)
FEOFAN, а если четных элементов нет, оно выведет результат "1"

program m;
uses crt;
mas:array[1..255] of byte;
i,p:integer; g:boolean;
begin
{тут код, где вводится массив}
i:=1;
p:=1;
while i<256 do begin
if (((mas[i] mod 2) = 0) and (mas[i] <>0)) then begin p:=p*mas[i]; g:=true; end;
i:=i+2;
end;

if g then writeln('Произведение: ',p) else writeln('бла-бла-бла, не обнаружено!');
end.

Вот так, думаю , выглядит окончательный верный вариант=)

 

[FEOFAN]

=)
FEOFAN, а если четных элементов нет, оно выведет результат "1"

Неа, не выведет=)
Там же стоит if (p<>1)

 

[Hamster]

Упс, прогон. пойду лучше дальше спать...

 

[Tepesh]

Келбас опять напряг
Оператор циклов

1. Составить програму акторая выводит таблицу унможения.

2. По видёномому номеру билет оприделяолабы счастливый он или нет (счастливый билед года сума трёх перых чисел равана суме последних трёх Пример: 101011)

3.Зделана покупка от 1 копейки до 1 грн. Написать прогу каторая выдавалабы здачу камейками большего достоинцтва.

4. Вывести на екран все простые числа от 1 до 1000.

Зарание благодарен

 

[KoLoB]

Келбас опять напряг
Оператор циклов

1. Составить програму акторая выводит таблицу унможения.

2. По видёномому номеру билет оприделяолабы счастливый он или нет (счастливый билед года сума трёх перых чисел равана суме последних трёх Пример: 101011)

3.Зделана покупка от 1 копейки до 1 грн. Написать прогу каторая выдавалабы здачу камейками большего достоинцтва.

4. Вывести на екран все простые числа от 1 до 1000.

Зарание благодарен

Блин, каждая задача пишеться за 10 минут максимум.
Ребята, не нагляйте уже совсем!!!!

 

[AkeL.php]

10 минут тоже время =)
По моему мнению, если не знаете, как решается задача, спросите у учителя или загляните в книгу (иногда намного полезнее).

 

[quant]

а вот саму интересно как подбирать простые числа
не последовательным же делением от его округлённой половины
что-то припоминаю в класе 3 учили какоето Решето Пифагора - так вроде, для генерации простых чисел

 

[quant]

ДА память меня практически не подвела
В математике, решето́ Эратосфе́на — простой старинный алгоритм нахождения всех простых чисел до некоторого целого числа n. Он является предшественником современного Решета Аткина, более быстрого, но и более сложного алгоритма. Он был создан древнегреческим математиком Эратосфеном.
интернет ссылка ->

You must be registered for see links

 

[Vladimir B.]

В масштабах от 1 до 1000 можно просто перебирать все числа от 1 до 1000 и вложеным циклом делить их на числа от 1 до round(sqrt(число)) - медленно, но эффективно, по сравнению с полным циклом (т.к. числа небольшие).

4 задача:

for i:=1 to 1000 do
  begin
    flag:=0;
    for j:=1 to round(sqrt(i)) do
       if (i mod j)=0 then inc(flag,1);
    if flag=1 then writeln(i);
  end;