Pascal keturzenklis

http://www.part.lt/img/9d696009b204e19fecc8efd37bf786d2829.png

Foto nuoroda

šitam uždavinį išieškomi skaičiai iš keturženklio skaičiaus man reikia dabar išieškot iš penkiaženklio visus skaičius radau tik niekaip neišeina rast ketvirto skaitmens

program Bevardė18;
var sk,dtuks,tuks,simt,desimt, vnt:integer ;
begin
 WriteLn('Įveskite penkiaženklį skaičių: ');
 Readln(sk);
 dtuks := sk div 10000;
 tuks := sk div 1000 mod 10;
 simt := sk mod 1000 div 100;
 desimt:= sk div 10 mod 10;
 vnt := sk mod 10;
write(dtuks,' ',tuks,' ',simt,' ',desimt,' ',vnt);
 Readln;
end.

Nerašysiu visko, esmė parašyta.

program Bevardė18;
var sk,dtuks,tuks,simt,desimt, vnt:integer ;
begin
 WriteLn('Įveskite penkiaženklį skaičių: ');
 Readln(sk);
 dtuks := sk div 10000;
 tuks := sk div 1000 mod 10;
 simt := sk mod 1000 div 100;
 desimt:= sk div 10 mod 10;
 vnt := sk mod 10;
write(dtuks,' ',tuks,' ',simt,' ',desimt,' ',vnt);
 Readln;
end.

Nerašysiu visko, esmė parašyta.

Bet juk įvedus skaičių nuo 32 tūkstančių bus išmesta klaida, nes reikia naudoti ne integer tipą, o longint kurio reikšmės gali būti iki 2 tūkstančių milijonų, arba 2 milijardų.

Aš daryčiau taip, man tai net šiek tiek paprasčiau:

program Bevarde18;
var sk:longint;
   sum, san:longint;
   i, tarp:integer;
begin
san := 1; sum := 0;
write('Iveskite penkiazenkli skaiciu: '); readln(sk);
for i:=1 to 5 do
   begin
   tarp := sk mod 10;
   write(tarp ,' ');
   sum += tarp;
   san *= tarp;
   sk := sk div 10;
   end;
writeln;
If sum - san > 0 then writeln('Suma didesne uz sandauga, skirtumas: ', sum-san)
                else writeln('Sandauga didesne uz suma, skirtumas: ', san-sum);
readln;
end.

Čia visą uždavinį išspręndžiau :)