Pascal

[tanya_morflot]

Даны 3 целых числа, если среди них есть четное число, то найти их произведение

 

Напишите пожалуйста ход действия

 

ОТСОСУ

[Gomosek]

заинтриговал

 

хотя алгоритм - сначала отсасал потом тебе решили, более эфективен

[Pedrillo]

заинтриговал

 

[tanya_morflot]

ответ пожалуйста

[Gomosek]

ответ пожалуйста

скинул же тебе в личку. Высылай свой рот

[Sweetnyy]

мой офтопик и то лучше

[j2meee]

это же 5 класс блять!

[tanya_morflot]

ответ пожалуйста

скинул же тебе в личку. Высылай свой рот

меня так просто не обманишь 

[kedbi]

ход действий таков:

---каждое число делишь на 2, если нет остатка (mod 2=0) заносишь в переменную, и так последующие цифры

----умндожаем

-----???????

-????

profit

[Gomosek]

мой офтопик и то лучше

неплохо

[Eul-]

Скиньте в топан гляну ваше решение:o

[tanya_morflot]

ход действий таков:

---каждое число делишь на 2, если нет остатка (mod 2=0) заносишь в переменную, и так последующие цифры

----умндожаем

-----???????

-????

profit

а можно расписать чтоб я копипастом в паскаль и готово?

[tanya_morflot]

это же 5 класс блять!

не было информатики в 5 классе 

[Frizy]

думал тема о другом :D

[RevengE-_-]

ЛОЛ, я такие проги вместо "хелло ворлда" писал

[Gomosek]

ход действий таков:

---каждое число делишь на 2, если нет остатка (mod 2=0) заносишь в переменную, и так последующие цифры

----умндожаем

-----???????

-????

profit

а можно расписать чтоб я копипастом в паскаль и готово?

ебать ты ленивый! может он тебе все решит распишет еще и отсосет сам себе потом в благодарность

[sokol-cool]

ход действий таков:

---каждое число делишь на 2, если нет остатка (mod 2=0) заносишь в переменную, и так последующие цифры

----умндожаем

-----???????

-????

profit

а можно расписать чтоб я копипастом в паскаль и готово?

на бейсике так выглядит

IF x mod 2 = 0 or y mod 2 = 0 or z mod 2 = 0 then

e=x*y*z

END IF

 

 

 

 

TEPER` MINET

[tanya_morflot]

ход действий таков:

---каждое число делишь на 2, если нет остатка (mod 2=0) заносишь в переменную, и так последующие цифры

----умндожаем

-----???????

-????

profit

а можно расписать чтоб я копипастом в паскаль и готово?

ебать ты ленивый! может он тебе все решит распишет еще и отсосет сам себе потом в благодарность

да блять просто я хуево знаю команды в паскале всякие там writeLn и типа такого

[malolikto]

var a,b,c:integer;

begin

readln(a);

readln(b);

readln©;

if ((a mod 2=0) or (b mod 2=0) or (c mod 2=0)) then writeln(a*b*c) else writeln("vse chisla nechetnye bleat!");

readln;

end.

[kedbi]

ход действий таков:

---каждое число делишь на 2, если нет остатка (mod 2=0) заносишь в переменную, и так последующие цифры

----умндожаем

-----???????

-????

profit

а можно расписать чтоб я копипастом в паскаль и готово?

ебать ты ленивый! может он тебе все решит распишет еще и отсосет сам себе потом в благодарность

 

вон тебе уже расписали