Şimdi Ara

pascal istediğiniz aralıktaki asal sayıları bulup dosyaya yazdıran program(sorun var)

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

https://www.amazon.com.tr/dp/B0CG84YMZ8?ref=ppx_yo2ov_dt_b_fed_asin_title https://www.amazon.com.tr/dp/B0CG84YMZ8?ref=ppx_yo2ov_dt_b_fed_asin_title 4 sa. önce paylaşıldı

https://www.amazon.com.tr/dp/B0CKDZT5JX?ref=ppx_yo2ov_dt_b_fed_asin_title https://www.amazon.com.tr/dp/B0CKDZT5JX?ref=ppx_yo2ov_dt_b_fed_asin_title 13 sa. önce paylaşıldı

Defacto Su İtici Slim Fit Kapüşonlu Fermuarlı Cepli Polar Astarlı Mont Parka A1309AX23WNBG715 XL Fiyatları ve Özellikleri https://www.n11.com/urun/defacto-su-itici-slim-fit-kapusonlu-fermuarli-cepli-polar-astarli-mont-parka-a1309ax23wnbg715-46058362 24 sa. önce paylaşıldı

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir - 2 Masaüstü

5 sn

4
Cevap

0
Favori

737
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa: 1

Giriş

Mesaj

program Untitled; 
  uses crt; 
  label son; 
  var 
  dosya:file of integer;nasil:string; 
  sayi,a,aralik:integer; 
  begin 
  writeln('Kaca kadar olan asla sayilar bulunsun?');readln(aralik); 
  writeln('nereye kaydedilsin');readln(nasil); 
  sayi:=1; 
  assign(dosya,nasil); 
  rewrite(dosya); 
  repeat 
  sayi:=sayi+1; 
  for a:=2 to sayi-1 do 
  begin 
  if sayi mod a=0 then goto son; 
  seek(dosya,filesize(dosya));write(dosya,sayi); 
  end; 
  son: 
  until sayi=aralik; 
  readln; 
  end.

arkadaşlar istediğim dosyayı açıyor kaydetme olmasa sayılarıda buluyor ama dosyaya yazdığında şöyle garip birşeyler yazıyor

                           	                               
      
      
      
      
      
      
      
      
      
      
                                                                                                                                                                                                                                                                                                                                                              !   #   #   #   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   %   '   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   )   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   +   -   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   /   1   1   1   1   1   3   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   5   7   7   7   9   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   ?   A   A   A   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   C   E   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   G   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   I   K   M   M   M   M   M   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   O   Q   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   S   U   U   U   W   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   Y   [   [   [   [   [   ]   _   _   _   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   a   c