fork(1) download
copy 
  1. program prost_01;
  2. var ch, del, kd, k: integer;
  3.  
  4. begin
  5. k:=0;
  6. for ch:=1024 to 16384 do
  7.               begin
  8.               kd:=0;
  9.  
  10.               for del:=1 to ch do
  11.                               if ch mod del=0 then inc(kd);
  12.  
  13.               If kd=2 then k:=k+ch;
  14.               end;
  15.  
  16. write('k=',k);
  17. end.
Success #stdin #stdout 0.39s 2060KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
k=14504452
https://ideone.com/R6Gaqv
language:
Pascal (gpc 20070904)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!