Pascal

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

this

а можно с самого начала?

типа бегин не бегин

Пол:Женский

теперь миньет

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.

програм забыл,  смотри  он ведь не поймёт  в чём дело

program prodota;

var a,b,c:integer;

begin

if ((a mod 2=0) or (b mod 2=0) or (c mod 2=0)) then writeln(a*b*c);

end.

 

program prodota;

var a,b,c:integer;

begin

if ((a mod 2=0) or (b mod 2=0) or (c mod 2=0)) then writeln(a*b*c);

end.

элементарно же блять 

 

program prodota;

var a,b,c:integer;

begin

if ((a mod 2=0) or (b mod 2=0) or (c mod 2=0)) then writeln(a*b*c);

end.

спасибо

 

уже выехал с чистым ртом

 

фотки рта запили нам

Условия задачи не полные.Нам не сказано, что надо что-то вводить самим, что-то вывыдить

элементарно

 

 

program 9typoiyebok;

var a,b,c,d: integer

begin

readln(a,b,c,d);

if a div 2=0 then d:=a*b*c

else if b div 2=0 then d:=a*b*c

else if c div 2=0 then d:=a*b*c

else writeln('xyi tebe');

readln;

end.

элементарно

 

 

program 9typoiyebok;

var a,b,c,d: integer

begin

readln(a,b,c,d);

if a div 2=0 then d:=a*b*c

else if b div 2=0 then d:=a*b*c

else if c div 2=0 then d:=a*b*c

else writeln('xyi tebe');

readln;

end.

a че у еула неправильный тогда штоле?

тоже самое, только я написал для совсем тупых

элементарно

 

 

program 9typoiyebok;

var a,b,c,d: integer

begin

readln(a,b,c,d);

if a div 2=0 then d:=a*b*c

else if b div 2=0 then d:=a*b*c

else if c div 2=0 then d:=a*b*c

else writeln('xyi tebe');

readln;

end.

a че у еула неправильный тогда штоле?

тоже самое, только я написал для совсем тупых

Запусти прогу, вытащи клаву из системника и съеби из аудитории - у всех через пару минут пойдет кровь из ушей

uses crt,dos;

begin

repeat

sound(16000)

until keypressed;

nosound;

end.

 

Запусти прогу, вытащи клаву из системника и съеби из аудитории - у всех через пару минут пойдет кровь из ушей

 

uses crt,dos;

begin

repeat

sound(16000)

until keypressed;

nosound;

end.

что это кстати?

 

Запусти прогу, вытащи клаву из системника и съеби из аудитории - у всех через пару минут пойдет кровь из ушей

 

uses crt,dos;

begin

repeat

sound(16000)

until keypressed;

nosound;

end.

возьму на заметку

что это кстати?

Это динамик пк будет издавать звук в 16000 герц. Можно сделать поменьше, чтоб точно все слышали, но я 16000 слышу и пиздец сука бесит этот писк.

 

Запусти прогу, вытащи клаву из системника и съеби из аудитории - у всех через пару минут пойдет кровь из ушей

 

uses crt,dos;

begin

repeat

sound(16000)

until keypressed;

nosound;

end.

возьму на заметку

что это кстати?

Это динамик пк будет издавать звук в 16000 герц. Можно сделать поменьше, чтоб точно все слышали, но я 16000 слышу и пиздец сука бесит этот писк.

АЗХАХХА о господи, это же 9 класс 

АЗХАХХА о господи, это же 9 класс 

если бы первоклашек учили синтаксису паскаля, то они бы накатали за 2 мин.

АЗХАХХА о господи, это же 9 класс 

если бы первоклашек учили синтаксису паскаля, то они бы накатали за 2 мин.

var

a,b,c:longint;

begin

read(a,b,c);

if not(odd(a) and odd(b) and odd©) then writeln(a*b*c);

end.

заовнил всех