Question

1. Sa se afiseze toate numerele de 2 cifre ce contin cifra 0
2.Sa se afiseze numerele prime din intervalul [a,b]
3.Se dau doua numere a si b.Sa se calculeze a la b (A la puterea B)
4.Sa da N. Sa sa afiseze daca este perfect.

Answer 1

var i:byte;

begin

for i:=10 to 99 do 
 if i mod 10 = 0 then write(i, ' ');

end.


var a,b,i,c:integer;

begin

read(a,b);
writeln;

for a:=a to b do begin
 c:=0;
 for i:=1 to a do 
  if a mod i = 0 then inc(c);
 if c=2 then write(a,' ');
 end;
end.


var a,b:integer;

begin

read(a,b);
writeln;

write(power(a,b));

end.


var i,n,s:integer;

begin

read(n);
writeln;

for i:=1 to n-1 do
 if n mod i = 0 then inc(s,i);

if s=n then writeln('Perfect') else
 writeln('Ne perfect')

end.