program aaa; var d, n : integer; begin write ('введите число N-'); readln (n); writeln('Делители числа: '); for d :=1 to n do if n mod d = 0 then writeln (d) end.
Используем нумерацию слов не с 1, а с нуля. Заметим, что кодирование слов происходит аналогично кодированию чисел в 4-ричной системе счисления, поскольку мощность алфавита равна 4 (4 буквы). Буква А соответствует 0, К - 1, Р - 2, У - 3. Тогда слово Р - первое слово, которое начинается на Р, - соответствует числу 20000.в 4-ричной системе счисления Слово Р - последнее слово, которое начинается на Р, - соответствует числу 23333. Переведем их в десятичную систему счисления. 20000_4 = (2*4^4)_10 = 512_10 23333_4 = (30000-1)_4 = (3*4^4-1)_10 = 767_10 (X_Y - число X в системе счисления Y. Когда будешь оформлять, Y надо написать как индекс справа внизу от числа X) Так вот, при нумерации с 1 слово Р будет 513-м, а слово Р будет 768-м
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию!
begin var a:=MatrRandom(10,15,-50,50); a.Println(4); var amax:=-100; var amin:=100; foreach var x in a do if x>amax then amax:=x else if x<amin then amin:=x; Writeln('Amax-Amin=',amax-amin) end.
program aaa;
var d, n : integer;
begin
write ('введите число N-');
readln (n);
writeln('Делители числа: ');
for d :=1 to n do
if n mod d = 0 then writeln (d)
end.