atsakymas skaitm.out failu...
Parašytas: 2009 02 13 16:24
Programa turi parasyti atsakyma skaitm.out failu ,bet man to nedaro. programa veikia gerai 
programa turi apskaiciuoti skaiciiu sekos ilgi, kurioje bus skaitmuo d bus uzrasytas ne maziau kaip k kartu. duomenys yra faile skaitm.in, du skaiciai vieninteleje eiluteje, atskirti tarpu.
programa turi apskaiciuoti skaiciiu sekos ilgi, kurioje bus skaitmuo d bus uzrasytas ne maziau kaip k kartu. duomenys yra faile skaitm.in, du skaiciai vieninteleje eiluteje, atskirti tarpu.
Kodas: Pasirinkti visus
program Bevardë0;
var D , K , S , G , Q , I :integer ;
label lyginimas , maz10 , daug10 , atsakymas , skaiciavimas;
var duota , gauta : text;
begin
assign(duota, 'C:/skaitm.in');reset (duota);
Read(duota , D );read(duota , K);
Q:=0;
S:=1;
lyginimas:
if Q=K then goto atsakymas;
skaiciavimas:
if S<10 then goto maz10
else goto daug10;
maz10:
I:= S mod 10;
if I = D then Q:= Q + 1;
S:= S + 1;
G:=G+1;
goto lyginimas;
daug10:
I:= S mod 10;
if I = D then Q:= Q + 1;
I:= s div 10;
if I = D then Q:= Q + 1;
S:= S + 1;
G:= G+1;
goto lyginimas;
atsakymas:
assign(gauta, 'C:/skaitm.out');rewrite (gauta);
Writeln(gauta, G);
end.