Temos pavadinimas: WordPress, Shopify ir PHPFusion programuotojų bendruomenė :: klausimai

Parašė .EiMa· 2011 Sau. 17 14:01:46
#155


program Bevarde36;
var x:integer;
begin
  readln(x);
  while -8 < x  do
  Begin
  if x < 0 then Writeln(x,' -8 < x < 0 TINKA')
  else Writeln(x,'-8 < x < 0 Netinka');
  x := x + 1;
  Readln(x);
  end;
end.  


Gal kazkas tokio?

Redagavo ozzWANTED· 2011 Vas. 13 12:02:09