ответы — 6

• 
  desf14.12.2011, 18:21#
  HELP
• 
  mopika14.12.2011, 18:24#
  2)вроде бы так uses crt; var k,g:byte; begin clrscr; writeln('Сколько кроликов и гусей, если лап 64?'); for k:=0 to 16 do for g:=0 to 32 do if k*4+g*2=64 then writeln('крл.=',k:2,' гус.=',g:2); readln end.
• 
  DoO_ne114.12.2011, 18:39#
  1 задача program z; var a:integer; s,p,x:integer; begin s:=0; writeln ('vveidte a'); readln (a); for x:=1 to a do s:=s+x; writeln ('s=',s); begin p:=1; for x:=1 to a do p:=p*x; writeln ('p= ',p); end; end.
  • 
    abram_4uk14.12.2011, 18:40↑#
    а в ассемблере сможешь?
    • 
      abram_4uk14.12.2011, 18:40↑#
      :)
• 
  DoO_ne114.12.2011, 18:41#
  студент может все :D

Чтобы комментировать — необходимо авторизоваться.