Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ksdksd
Language: PASCAL
Code:
Program paciorki;
var
  a,b,k,n:longword;

begin
  write('Podaj liczbę>'); readln(n);
  a:= n div 2;
  b:= 2;
  k:= n mod 2;

  while (a>b) and (k<>0) do begin
    a:= a - 1;
    k:= b + k;
    if k>=a then begin
      b:= b + 1;
      k:= k - a
    end
  end;
  write(n,' = ',a,' * ',b);
  if k<>0 then writeln(' + ', k, ' jest liczbą pierwszą')
  else writeln(' jest liczbą złożoną');
end.
Comments: