Program Prostoe;
<span>Uses </span>
<span>Crt; </span>
<span>Var </span>
<span>i, {возможный делитель} </span>
<span>Number : integer; {исследуемое число} </span>
<span>Begin </span>
<span>ClrScr; </span>
<span>writeln (‘Какое число должно быть проверено? ‘); </span>
<span>read (Number); </span>
<span>i := 1; </span>
<span>repeat </span>
<span>i := i+1; </span>
<span>until Number mod i = 0; </span>
<span>if Number=i </span>
<span>then </span>
<span>writeln (Number,’ является простым‘) </span>
<span>else </span>
<span>writeln (Number,’ делится на ‘,i); </span>
<span>readln; </span>
<span>End. </span>
Пишем от 0 до 6, потом добавляем +1 в старший разряд...
0 1 2 3 4 5 6
10 11 12 13 14 15 16
20
А для натурального ряда отсчет идет с 1, поэтому
1 2 3 4 5 6
10 11 12 13 14 15 16
20 21