Pascal part2

[tanya_morflot]

1) даны 2 числа, найти их произведение если они положительны, иначе найти их сумму

2) даны 3 числа, определить имеются ли среди них четные числа

напиши все от и до, отсосу

[smthelse]

Сиськи в топан - сделаю. Бтв такие задачи можно решать не зная языка за 20 минут максимум.

[Mark.00F.ka]

кароче

1. хуй в говне

2. трахни их

[Ramil]

даны два стула

[^MicroLaB^]

в ответах майл ру тебе помогут 

[Victorius]

в первом проверяешь на x1>0 && x2>0 then x1*x2 else x1+x2;

во втором x1%2=0 || x2%2=0 || x3%2=0 then println("4etnie est");

[TheDeadSkin]

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

 

Учи матчасть.

[Гость KissMe]

ИДИ НАХУЙ ЭЙ

[ЖУМОНГ]

ну т.к. мне отсасывать нечего

и если сейчас автор не понимает даже такой хуйни, что же он потом делать будет

нахуй

[KrotiQ]

Program KrotiQ;

var

a,b,s:integer;

begin

write ('a=');

readln (a);

write ('b=');

readln (b);

if (a>0) and (b>0) then

s:=a*b else

s:=a+b;

writeln('s=',s);

end.

[ЖУМОНГ]

Program KrotiQ;

var

a,b,s:integer;

begin

write ('a=');

readln (a);

write ('b=');

readln (b);

if (a>=0) and (b>=0) then

s:=a*b else

s:=a+b;

writeln('s=',s);

end.

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

[KrotiQ]

Program KrotiQ;

var

a,b,c:integer;

begin

write ('a=');

readln (a);

write ('b=');

readln (b);

write ('c=');

readln ©;

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

writeln ('imeyutsya chetnie chisla') else

writeln('ne imeyutsya chetnie chisla');

end.

[Victorius]

Program KrotiQ;

var

a,b,s:integer;

begin

write ('a=');

readln (a);

write ('b=');

readln (b);

if (a>=0) and (b>=0) then

s:=a*b else

s:=a+b;

writeln('s=',s);

end.

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

а что за две строки?

[KrotiQ]

Program KrotiQ;

var

a,b,s:integer;

begin

write ('a=');

readln (a);

write ('b=');

readln (b);

if (a>=0) and (b>=0) then

s:=a*b else

s:=a+b;

writeln('s=',s);

end.

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

что не так?

[SUKA_NA]

пиздец какаим нада быть тупым чтоб такую прогу самому не катать

[ElectroDriver]

паацаны! не ведитесь! он не будет сосать

[ЖУМОНГ]

Program KrotiQ;

var

a,b,s:integer;

begin

write ('a=');

readln (a);

write ('b=');

readln (b);

if (a>=0) and (b>=0) then

s:=a*b else

s:=a+b;

writeln('s=',s);

end.

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

что не так?

самому додуматься не?

[GreenDust1k]

sliw, ir

ne viebivaisa

[prodota]

отсоси

потом проси

 

 

эти строки?

[ЖУМОНГ]

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