Pascal pagalbos.

Sveiki, reikia šiek tiek pagalbos dėl paprasto pascal uždavinio.

Štai:

Parašykite programą, kuri nustato natūraliojo skaičiaus n skaimenų, nelygių nuliui, sandaugą.

Reikia kuo greičiau, ačiū.

program Noname2;
var a,sand:integer;
begin
 Writeln('Iveskite skaiciu');
 Readln(a);
 sand := 1;
 while a > 0 do
   begin
     if a mod 10 <> 0 then sand := sand * (a mod 10);
     a := a div 10;
   end;
 writeln('Sandauga: ');
 Writeln(sand);
 Readln;
end.

Maždaug šitaip. Bet ar tau reikia tik N skaitmenų sandaugos, ar visų? :) (čia parašyta programa skaičiuoja visų skaitmenų, nelygių 0)

program Noname2;
var a,sand:integer;
begin
 Writeln('Iveskite skaiciu');
 Readln(a);
 sand := 1;
 while a > 0 do
   begin
     if a mod 10 <> 0 then sand := sand * (a mod 10);
     a := a div 10;
   end;
 writeln('Sandauga: ');
 Writeln(sand);
 Readln;
end.

Maždaug šitaip. Bet ar tau reikia tik N skaitmenų sandaugos, ar visų? :) (čia parašyta programa skaičiuoja visų skaitmenų, nelygių 0)

Na kažko tokio man ir reikėjo. Ačiū.

Sveiki, dar reikia šiokios tokios pagalbos su pascal, uždavinį reikia padaryti dviejais būdais su while ir repeat, aš mokykloje praleidau šitą temą tai dabar nelabai suprantu.

Štai:

Parašykite programą, kuri rastų skaičių nuo 1 iki n sandaugą (faktorialą).

program Project1;

var n : integer;
   skaic : longint;

begin
 WriteLn('Iveskite n');
 ReadLn(n);
 skaic := 1;
 while n > 0 do
    begin
      skaic := skaic * n;
      n := n - 1;
    end;
 writeln(skaic);
 Readln;
end.

program Project1;

var n : integer;
   skaic : longint;

begin
 WriteLn('Iveskite n');
 ReadLn(n);
 skaic := 1;
 repeat
      skaic := skaic * n;
      n := n - 1;
 until n = 1;
 writeln(skaic);
 Readln;
end.

program Project1;

var n : integer;
   skaic : longint;

begin
 WriteLn('Iveskite n');
 ReadLn(n);
 skaic := 1;
 while n > 0 do
    begin
      skaic := skaic * n;
      n := n - 1;
    end;
 writeln(skaic);
 Readln;
end.

 

program Project1;

var n : integer;
   skaic : longint;

begin
 WriteLn('Iveskite n');
 ReadLn(n);
 skaic := 1;
 repeat
      skaic := skaic * n;
      n := n - 1;
 until n = 1;
 writeln(skaic);
 Readln;
end.

Dėkui, vėl padėjai man :)

Sveiki dar reikia šiek tiek pascal pagablos.

Gal kas padarytų greitukui dvi programas labai reikia rytojui.

http://www.part.lt/img/35fadb59703fe1cbbc2c939e91ccb7f636.jpg

NEBEREIKIA