Turbo Pascal

FEOFAN

http://feofan.com
перечитай мой пост еще раз.

а если все элементы нечетные, что возвратит твоя прога? 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

Well-Known Member
=)
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.
Вот так, думаю , выглядит окончательный верный вариант=)
 

Tepesh

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

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

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

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

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

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

KoLoB

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

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

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

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

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

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

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

AkeL.php

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

quant

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

quant

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

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;
 
Зверху