# data[].attributes.body
Se dă un vector cu n (1<= n<=100). Să se afișeze componentele de tip întreg

# data[].attributes.body
Să scriem un program care să calculeze cel mai mare divizor comun a două numere. În acest scop, vom utiliza o funcţie, care va avea două argumente: numerele întregi a şi b. În urma algoritmului, a şi b se modifică, însă acest lucru nu vrem să fie transmis înapoi în programul principal, aşa încât nu vom folosi cuvântul rezervat var în faţa identificatorilor. În partea stângă a textului programului am numerotat instrucţiunile, în ordinea în care se execută ele.

# data[].attributes.body
program CalculCMMDC;
function CMMDC(a,b: Integer): Integer;
begin
while a<>b do
if a>b then a:=a-b
else b:=b-a;
CMMDC:=a
end;
var x,y: Integer;
begin
x:=20; y:=24;
WriteLn(CMMDC(x,y))
end.

# data[].attributes.body
Pagina 4 (89)

# data[].attributes.headline
Se dă un vector cu n (1<= n<=100). Să se afișeze componentele prime.

# data[].attributes.subject
Se dă un vector cu n (1<= n<=100). Să se afișeze componentele prime.

# data[].attributes.body
program Subpr1;
type tablou=array [1..100]of integer;
var a:tablou;
i,n:byte;
procedure cit_tablou(var t:tablou; var dim:byte);
var j:byte;
begin
write('Dimensiunea vectorului:');
readln(dim);
for j:=1 to dim do begin
write('Componenta',j,':');
readln(t[j]);
end;
end;
function prim(x:integer):boolean;
var j:integer;
f:boolean;
begin
f:=true; j:=1;
repeat
inc(j);
if x mod j=0 then f:=false;
until (j>x div 2) or (not f);
if x=1 then f:=false;
prim:=f;
end;
Begin
Cit_tablou(a,n);
for i:=1 to n do
if prim(a[i]) then write(a[i],' ');
end.

# data[].attributes.body
Manual Verde

# data[].attributes.body
program Subpr2;
type tablou=array[1..100] of integer;
var a:tablou;
i,n,t:byte;
b:[1..4] of byte;
procedure Cit_tablou (var t:tablou; var dim:byte);
var j:byte;
begin
write ('Dimensiunea vectorului:');
readln(dim);
for j:=1 to dim do begin
write('Componenta',j,':');
readln(t[j]);

end;
end;
function nc(x:integer) :byte;
var i,nr_cifre,intreg:integer;
begin
i:=1; nr_cifre:=0;
repeat
intreg:=trunc(a/10*i));
i:=i*10;
inc(nr_cifre);
until intreg =0;
nc:=nr_cifre;
end;
BEGIN
ClrScr
Cit_tablou(a,n);
for i:=1 to n do begin
t:=nc(a[i]);
inc(b[t]);

end;
for i:=1 to 4 do
writeln('Componente cú ',i,'cifre'',b[i];
END.

# data[].attributes.headline
Program P1;      Uses crt;      Var x,y: integer;   Begin   Clrscr;   Writeln('Introduceti doua numere intregi:');   Write('x='); Readln(x);   Write('y='); Readln(y);   x:=x+100;   y:=y+100;   Write('Numerele marite cu 100: ');   Writeln('x=',x,' ','y=',y);   Readke

# data[].attributes.subject
Program P1;      Uses crt;      Var x,y: integer;   Begin   Clrscr;   Writeln('Introduceti doua numere intregi:');   Write('x='); Readln(x);   Write('y='); Readln(y);   x:=x+100;   y:=y+100;   Write('Numerele marite cu 100: ');   Writeln('x=',x,' ','y=',y);   Readke

# data[].attributes.headline
ABC Pascal                                   

# data[].attributes.subject
ABC Pascal                                   

# data[].attributes.body
var i,n,s : integer;

f : boolean;

begin

repeat

write('Introduceţi un număr natural n=');

readln(n);

until n>2;

if n mod 2=0 then f:=false else f:=true;

write('s=');

for i:=1 to n-2 do

if(not f) and (i mod 2 =0)then write('*',i)

else

if f and (i mod 2<>0)then write('*',i);

writeln('*',n);

end.

# data[].attributes.body
Creaţi un program care afişează următoarea funcţie.

# data[].attributes.body
Introduceţi un număr natural n=6
s=*2*4*6

# data[].attributes.body
program Subpr1;
type tablou=array [1..100]of integer;
var a:tablou;
i,n:byte;
procedure cit_tablou(var t:tablou; var dim:byte);
var j:byte;
begin
write('Dimensiunea vectorului:');
readln(dim);
for j:=1 to dim do begin
write('Componenta',j,':');
readln(t[j]);
end;
end;
function prim(x:integer):boolean;
var j:integer;
f:boolean;
begin
f:=true; j:=1;
repeat
inc(j);
if x mod j=0 then f:=false;
until (j>x div 2) or (not f);
if x=1 then f:=false;
prim:=f;
end;
Begin
Cit_tablou(a,n);
for i:=1 to n do
if prim(a[i]) then write(a[i],' ');
end.

# data[].attributes.body
Manual Verde