Pascal

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

в наше время какие языки используют? 

C#, Java, PHP, Ruby.

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

как создать алгоритм, меняющий значения двух переменных друг с другом не используя при этом 3ую переменную?

как создать алгоритм, меняющий значения двух переменных друг с другом не используя при этом 3ую переменную?

пишешь

функцию, меняешь...PROFIT

var

a, b, c: longint;

 

Begin

read(a, b, c);

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

write(a*b*c);

End.

var

a, b, c: longint;

 

Begin

read(a, b, c);

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

write(a*b*c);

End.

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

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

как создать алгоритм, меняющий значения двух переменных друг с другом не используя при этом 3ую переменную?

так можно делать, но это вызывает рак

надо всегда делать с третьей переменной

как создать алгоритм, меняющий значения двух переменных друг с другом не используя при этом 3ую переменную?

умный дохуя? 

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 долго работает

как создать алгоритм, меняющий значения двух переменных друг с другом не используя при этом 3ую переменную?

 

ну на с++ самый короткий способ a^=b^=a^=b

А если тип не примитивный, то никак

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 долго работает

ты точно не хуйю написал?  произведение 3 int возвращает булевое значение и есть случаи, когда 0 = 1? 

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 долго работает

ааааааааа

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

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

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

 

ну тогда

 

a := a xor b;

b := a xor b;

a := a xor b;

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 долго работает

ты точно не хуйю написал?  произведение 3 int возвращает булевое значение и есть случаи, когда 0 = 1? 

если перемножить 3 нечетных числа получится нечетное

если перемножить 3 нечетных числа получится нечетное

ничего не понял.

меня именно это if (a*b*c) and 1 = 0 then смутило.

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

 

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 долго работает

 

 

ааааааааа

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

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

если перемножить 3 нечетных числа получится нечетное

ничего не понял.

меня именно это if (a*b*c) and 1 = 0 then смутило.

это будет работать как if (((a*b*c) and 1) = 0) then

Блез Паскаль