FPS programavimas

Diezel-I · Postby **Diezel-I** » Thu Dec 01, 2011 8:38 am

Sveiki,

Gal kas galetumete parasyti programa - "Atspausdinti visus penkiazenklius skaicius,kuriu viduriniu skaitmenu sandauga kygi krastiniu skaitmenu sandaugai.Suskaiciuoti kiek tokiu skaiciu yra"

Dekui.

virusass · Postby **virusass** » Thu Dec 01, 2011 2:56 pm

Code: Select all

program penkezenklis;
  var i : longint;
      sk1, sk2, kiek : integer;
begin
  kiek := 0;
  for i := 10000 to 99999 do
    begin
      sk1 := (i div 10 mod 10) * (i div 100 mod 10) * (i div 1000 mod 10);
      sk2 := (i div 10000) * (i mod 10);
      if sk1 = sk2 then
        begin
          kiek := kiek + 1;
          writeln(i);
        end;
    end;
  writeln(kiek);
end.

Tiesiog visus patikrinau ${L_SMILIES_VERY_HAPPY}$

Computer Bild Lietuva forumas

FPS programavimas

FPS programavimas

Re: FPS programavimas

Who is online