Pascal part2

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

begin

s:=a+b;

writeln('s=',s);

end;

end.

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

что не так?

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

fxd

sliw, ir

ne viebivaisa

пацаны прикиньте она при мне только что теги сама прописала

:xd:

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

begin

s:=a+b;

writeln('s=',s);

end;

end.

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

что не так?

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

fxd

кстати в самом деле хз, что за две строчки...

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

кто отгадает тому

всем паскаль пасаны

вардоязык - вардокод, какие придирки могут быть вообще?

кстати в самом деле хз, что за две строчки...

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

вроде у тебя все норм... но думаю он про uses crt и clrscr

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

begin

s:=a+b;

writeln('s=',s);

end;

end.

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

что не так?

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

fxd

конченый,у тебя на ветке да ответа небудет при такой хуйне

кто отгадает тому

нихуя

 

кстати в самом деле хз, что за две строчки...

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

вроде у тебя все норм... но думаю он про uses crt и clrscr

кстати в самом деле хз, что за две строчки...

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

вроде у тебя все норм... но думаю он про uses crt и clrscr

лол раньше написал

как PR@

кто отгадает тому

нихуя

 

только uses crt и clrscr приходит на ум, а так хз

во-первых ридкей

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

а кран автор даже не сможет исправить походу

во-вторых в первой задаче при первом условии райтлн не написал

Begin

Writeln("42");

End.

Begin

Writeln("Sam reshay suka");

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.

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

хотя я думаю автор все равно не различает эти понятия

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.

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

хотя я думаю автор все равно не различает эти понятия

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

да автор уже давно в школе и получил 2

Джумонг ,видимо, охуенная программистка

Джумонг ,видимо, охуенная программистка