Răspuns :
Răspuns:
program citireFisier;
var f: file of integer;
num, suma:integer;
str: string;
begin
write('Dati numele fisierului care trebuie de citit: ');
readln(str);
assign(f,str);
reset(f);
suma:=0;
while not eof(f) do
begin
read(f,num);
if (num mod 10=3)and(num mod 7=0) then inc(suma,num);
end;
close(f);
writeln('Suma numerelor ce se temina in 3 si ce se divide la 7 este ',suma);
end.
Explicație:
fişierul cu date, adică cu numere, trebuie să existe în dosarul unde vei plasa fişierul pascal care citeşte numerele. Şi trebuie să ştii numele lui. Acel fişier secvenţial se crează tot cu ajutorul altui program pascal, pe care eu îl plasez mai jos...
program crearesuma3div7;
var f:file of integer;
num,i:integer;
str:string;
begin
write('Dati numele fisierului care tr. de creat: '); read(str);
assign(f,str); rewrite(f);
writeln('introduceti 5 numere ');
for i:=1 to 5 do
begin
read(num);
write(f,num);
end;
close(f);
end.
Notă. Numere întroduci câte vrei. Vezi, eu am introdus 5. Vei introduce numele fişierului secvenţial, ce va conţine numere şi el se va salva automat în dosarul unde este salvat fişerul pascal ce crează fişierul secvenţial. Fişierului secvenţial eu i+am dat numele suma.in, dar tu poţi să-i dai şi alt nume.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.