Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

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

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

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.03.2008, 19:20   #1
Woland-itn
Новичок
Джуниор
 
Регистрация: 16.03.2008
Сообщений: 1
По умолчанию ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа

ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение всех положительных нечетных чис


народ кто может напишите плизз оч срочно нада

Последний раз редактировалось Woland-itn; 16.03.2008 в 19:36.
Woland-itn вне форума Ответить с цитированием
Старый 16.03.2008, 19:55   #2
Tayfun
Форумчанин
 
Аватар для Tayfun
 
Регистрация: 24.06.2007
Сообщений: 351
По умолчанию

var
p,x,y,z,w:integer;
begin
read(x,y,z,w);
p:=1;
if (x>0) and (x mod 2<>0) then p:=p*x;
if (y>0) and (y mod 2<>0) then p:=p*y;
if (z>0) and (z mod 2<>0) then p:=p*z;
if (w>0) and (w mod 2<>0) then p:=p*w;
writeln(p);
end.
Я не маюсь бездельем, я от него тащусь!
Tayfun вне форума Ответить с цитированием
Старый 21.03.2008, 01:44   #3
Шаман
Пользователь
 
Регистрация: 01.03.2008
Сообщений: 25
По умолчанию

Цитата:
Сообщение от Woland-itn Посмотреть сообщение
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение всех положительных нечетных чисел
Код:
uses
crt;

var
p,x,y,z,w:integer;
begin
clrscr;
readln(x,y,z,w);

if (x>0) and (y>0) 
   and (z>0) and (w>0)  {odd - функция возвращает True если число нечетное}
    and (odd(x)=true) 
    and (odd(y)=true) 
    and (odd(z)=true) 
    and (odd(w)=true) 
     then
p:=x*y*z*w;
 else exit;
writeln(p);
readln;
end.
Предыдущее решение немного неверное...В условии сказано, найти произведение всех 4-х чисел, если они проходят по условиям.
Плюс 1
Шаман вне форума Ответить с цитированием
Старый 23.03.2008, 21:49   #4
Snake_ua
Пользователь
 
Регистрация: 25.09.2007
Сообщений: 66
По умолчанию

"найти произведение всех положительных нечетных чисел"
Если же у нас есть отрицательное либо четное число, то мы его не учитываем. Находим произведение всех положительных нечетных которые нам даны. Поэтому первое решение является верным.
Snake_ua вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти два наибольших отрицательных числа Makarov Паскаль, Turbo Pascal, PascalABC.NET 8 14.06.2008 16:57
Даны числа от 100 до 999. Вводится индекс... Ci_novice Помощь студентам 4 19.04.2008 11:59
Даны три числа. Выберите те из них, которые принадлежат заданному отрезку [а, b]. Sheff903 Помощь студентам 1 27.11.2007 21:28
Найти количество различных цифр данного натурального числа. stalker Паскаль, Turbo Pascal, PascalABC.NET 10 22.05.2007 16:45
как найти корень из числа $Дмитрий Общие вопросы Delphi 7 26.04.2007 12:40

Реклама для незарегистрированных, регистрация на форуме