Pascal

не поленился проверить - делфи с такой хуйней нахуй шлет. ругается на ошибку.

 

var

a, b, c: longint;

 

Begin

read(a, b, c);

if (a*b*c) and 1 = 0 then

write(a*b*c);

End.

чё ты написал?

если а умн на б умн на ц и 1 равно нулю то? Оо

это быстрая проверка на четность, использующая битовое представление чисел 

операция mod долго работает

 

 

ааааааааа

если число четное то в бинарном представлении там единица в конце

если число четное, то в бинарном представлении ноль в конце, если нечетное -- единица

да да да

не то сказал просто)

все хуйня я в fortran'e пишу 

Как же не ворваться в тему про паскаль с задачей для 9 класса и не написать что паскаль хуйня, джава решает

сравнивать его с джава это 

это не язык программирования по разработки ПО, это просто базовые знания, которые должен знать любой программист.

конченый

используя именно паскаль, использовать всякие процедуры и функции тоже нельзя ибо там по-любому будут новые переменные

 

ну тогда

 

a := a xor b;

b := a xor b;

a := a xor b;

Офигеть ты жёсткий. Откуда про ХитрОе жюРи знаешь?

mov ax, a

mov bx, b

mul bx

mov bx, c

mul bx

test ax, 1b

jnz nechetnoe

; влом писать дохера строк вывода числа :D

nechetnoe:

mov ah, 4CH

int 21h

только ассемблер, только хардкор 

не поленился проверить - делфи с такой хуйней нахуй шлет. ругается на ошибку.

и что за ошибка?

этот код нормально везде работает; и в делфи писал, и в турбо паскале в свое время

тут либо делфи у тебя не правильное, либо...

mov ax, a

mov bx, b

mul bx

mov bx, c

mul bx

test ax, 1b

jnz nechetnoe

; влом писать дохера строк вывода числа :D

nechetnoe:

mov ah, 4CH

int 21h

только ассемблер, только хардкор 

ассемблер конечно хорошо, но не для таких задач )

но любой крупный проект, особенно если он ресурсоемкий, пишется на С++

Что, серьезно?

 

руби так плотно используется, что просто  :petro: :petro:

руби юзабельно-перспективный. Как-то так.

 

var

a, b, c: longint;

 

Begin

read(a, b, c);

if (a*b*c) and 1 = 0 then

write(a*b*c);

End.

блять, мне вспомнились строки кода Тимса, где типа:

 

if 1 == 1 then

 

   

но любой крупный проект, особенно если он ресурсоемкий, пишется на С++

Что, серьезно?

ну на C++ обычно все значительно быстрее работает, если нормально написано

но любой крупный проект, особенно если он ресурсоемкий, пишется на С++

Что, серьезно?

ну на C++ обычно все значительно быстрее работает, если нормально написано

Что, серьезно?

но любой крупный проект, особенно если он ресурсоемкий, пишется на С++

Что, серьезно?

ну на C++ обычно все значительно быстрее работает, если нормально написано

Что, серьезно?

А что, нет?

но любой крупный проект, особенно если он ресурсоемкий, пишется на С++

Что, серьезно?

ну на C++ обычно все значительно быстрее работает, если нормально написано

Что, серьезно?

А что, нет?

дело не в производительности. А в стоимости человек-часов и процессоров. Подумай над этим.

но любой крупный проект, особенно если он ресурсоемкий, пишется на С++

Что, серьезно?

ну на C++ обычно все значительно быстрее работает, если нормально написано

Что, серьезно?

А что, нет?

дело не в производительности. А в стоимости человек-часов и процессоров. Подумай над этим.

А здесь мы разве не про производительность? (Видимо я кран и не так истолковал слово "ресурсоемкий"  )

А в человек-часах C++ конечно намного проигрывает и C#, и Java и хз чему еще

но любой крупный проект, особенно если он ресурсоемкий, пишется на С++

Что, серьезно?

ну на C++ обычно все значительно быстрее работает, если нормально написано

Что, серьезно?

А что, нет?

дело не в производительности. А в стоимости человек-часов и процессоров. Подумай над этим.

написав фотошоп на шарпе ты получишь едва шевелящуюся хуйню, которая еще и гиг дотнета требует.

program Project2;

 

 

{$APPTYPE CONSOLE}

 

 

uses

  SysUtils;

  var

    a,b,c,s  :integer;

 

 

begin

  { TODO -oUser -cConsole Main : Insert code here }

  read(a,b,c);

  if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then begin

                                    s:=a*b*c;

                                    write(s);

                                    end

                                    else write(a,' ',b,' ',c);

end.

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

 

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

 

ОТСОСУ

чоблять?

если из 3 чиссел одно четное то все перемножить?

поменять местами без третьей переменной это

a := a+b

b:= a-b

a:=a-b

вот так

поменять местами без третьей переменной это

a := a+b

b:= a-b

a:=a-b

вот так

мда блядь. такую хуйню пишут сразу после халловорлда