Rezolvare Varianta 11 Informatica Pascal
MuLtumimri: Anca Petrus
SUBIECTUL I
1-d 2-c 3-d 4-b 5-a 6-d 7-a 8-a
SUBIECTUL II
1. 6 - se va afisa suma cifrelor pare care se gasesc printre ultimele k cifre ale numarului n.
2. n=4571 - orice numar care are trei cifre impare (cifrele din dreapta)
3.
Program Pascal;
var n,k,s,c:longint;
Begin
readln(n,k);
s:=0;
while (n>0) end (k>0) do
begin
c:=n mod 10;
if c mod 2=0 then
s:=s+c;
n:=n div 10;
k:=k-1;
end;
write(s);
end.
4.
Code:
Program Pascal;
var n,,k,s,c:longint;
begin
readln(n .k);
s:=0;
for i:=1 to k do
begin
c:=n mod 10;
if c mod 2=0 then
s:=s+c;
n:=n div 10;
end;
write(s);
end.
SUBIECTUL III
1.Explicatii :
a)- se cauta fiecare caracter din sirul parametru in sirul cu vocale si sunt contorizate cele gasite .
b)-se calculeaza numarul consoanelor prin diferenta dintre lungimea sirului si numarul vocalelor.
Program Pascal;
var x,y:string;
n,m:byte;
{cerinta a}
function nvoc(a:string):byte;
var i,v:byte;
s:string[7];
begin
s:='aeiouy';
v:=0;
for i:=1 to length(a) do
if pos(a[i],s)<>0 then
inc(v);
nvoc:=v;
end;
{cerinta b}
begin
readln(x);
readln(y);
n:=nvoc(x);
m:=nvoc(y);
if (length(x)-n)=(length(y)-m)
then
write ('nr egal de consoane')
else
write('nr diferit de consoane');
end.
2.Explicatii:
a) minimul se initializeaza cu -1; se parcurge sirul; pentru fiecare numar pozitiv, daca minim este egal cu -1 se atribuie aceasta valoare variabilei minim si numar aparitii este 1, daca minim nu este -1 se compara minim cu valoarea citita: pentru valori egale creste numarul aparitiilor iar pentru valoarea citita mai mica se actualizeaza minim.
- metoda descrisa este eficienta deoarece nu foloseste variabile structurate si parcurge o singura data sirul celor n numere.
Program pascal;
var n,a,min,nr:longint;
begin
readln(n);
min:=-1;
for i:=1 to n do
begin
read(a);
if a>0 then begin
if min=-1 then
begin
min:=a;
nr:=1;
end
else
if a<min then
begin
min:=a;
nr:=1;
end
else
if a=min then
inc(nr);
end;
end;
if min<>-1 then
write(min,' ',nr);
else
write('nu exista');
end.
3.Explicatii:
-se citesc numerele si se contorizeaza;daca variabila contor este multiplu de 5- salt la rand nou.Fiecre numar citit daca este prim se adauga la s.
Program Pascal;
var
a,s,d:longint;
f:text;
ok,i,j:word;
begin
assing(f,'BAC.TXT');
reset(f);
i:=0;s:=0;
while not eof(f) do
begin
read(f,a);
inc(i);
if i mod 5=0 then
writeln(a);
else write(a,' ');
ok:=1;
for d:=2 to sqrt(a) do
if a mod d=0 then
ok:=0;
if k=1 then s:=s+a;
end;
write(s);
close(f);
end.
Comentarii
Pentru a adăuga un comentariu, va trebui să vă autentificaţi.
Dacă nu aveţi inca un cont,
Inregistraţi-vă! Durează 30 de secunde!
