Напишіть програму, яка зчитує з клавіатури значення змінної exam. Якщо значення змінної більше або дорівнює 60, то виводиться слова «Залік зараховано», якщо значення менше 60, то виводиться слова «Залік не зараховано». Програма повинна виконувати розрахунки стільки разів, скільки потрібно

Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.

1. В прямом коде число 0 имеет два представления «+0» и «–0». ... В обратном коде число 0 также имеет два представления «+0» и «–0». Дополнительный код для положительных чисел имеет тот же вид, что и прямой код, а для отрицательных чисел образуется путем прибавления 1 к обратному коду.

2. При использовании дополнительного кода возникающая единица переноса из знакового разряда отбрасывается. При использовании обратного кода возникающая единица переноса из знакового разряда циклически прибавляется к младшему разряду суммы кодов. Это требует усложнения аппаратных средств.

Объяснение: