Question

vă rog trebuie repede este urgentttt​

Answer 1

Răspuns:

5.

var i, n : integer;

rez : real;

begin

 rez:=1;

 write('Introduceti un numar mai mic ca 100: ');readln(n);

 if n<100 then begin

 for i:=1 to n do rez:=rez*i;

 writeln(rez);

 end else writeln('Numarul introdus este mai mare sau egal cu 100!');

end.

6.

var a, b, i : integer;

begin

 write('Introduceti a si b: ');readln(a,b);

 write('Divizori comuni: ');

 for i:=1 to a+b do

 begin

   if (a mod i=0) and (b mod i=0) then write(i,' ');

 end;

end.