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

Parašė citni· 2010 Lap. 24 20:11:29
#143


program Bevarde10;
var i,x,y,z,q : integer;
begin
z:=0;
q:=0;
   for i:= 1 to 6 do
    begin
    Read(x);
  if x < 50 then
    z:=x+z
  else
   q:=q+1;
   end;
Writeln(z,' ',q);
end.

Gali neveikt, nes netestavau :D z yra gramai, kuriuos suvalgė, q - kiek liko.