Написать программу которая random'ным образом задает число с промежутком (-99999; 99999). с помощью признаков делимости узнать, делится ли число на 3

Паскаль. написать программу которая, используя признаки делимости, определяет, делится ли число на 6. var a, c: integer; begin cls; randomize; a:=random (99999+99999+1) - 99999; writeln ('исходное числo: ', a) ;

Необходимо вывести числа от - 3 до 7. random (6) ; random (-3,7) ; random (-3) + 7; random (7) - 3.

Program PS; var n, i: integer; b: real; a: array[1 ... 3] of real; begin read (n) ; for i : = 1 to 3 do a[i] : = random (50) - 20 + random () ;

Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;

Program PS; var n, i: integer; b: real; a: array[1 ... 3] of real; otoplenie: boolean; begin read (n) ; for i : = 1 to 3 do a[i] : = random (50) - 20 + random () ;