Реализация программы

Задание 2

Листинг программы

program mac;

uses crt;

var b,c,d,n,s:REAL;

I,J,K,e:INTEGER;

A:ARRAY[1..1000] OF REAL;

LABEL XX;

BEGIN

CLRSCR;

K:=0; j:=1;

E:=10;

for i:=1 to 1000 do;

repeat

j:=J+1;

S:=I MOD J ;

IF S=0 THEN begin K:=K+1; writeln(j,' k:=',k); end;

IF K>15 THEN BEGIN WRITE(I,':=',K,' ');ENd

until j=i ;

readkey;

END.

Реализация программы

Заключение

В данной курсовой работе я научился работать в программной среде pascal производит методы выделения и сортировки, а так же разнородные манипуляции с массивом