с ! Напишите программу, которая принимает 2 целых числа, a и b и
генерирует двумерный массив. Значение элементов i-й строке и j-м столбце массива должно быть i * j (i = 0,1 ..., a-1; j = 0,1 ..., b-1) . Для введенной последовательности целых чисел , вывести их в списке так, чтобы парные элементы располагались в начале списка, а не четные - в конце.
Program zadacha;
Var x:integer;
Begin
Randomize;
x:=random(9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999)+1000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000;
If (x mod 3=0) then begin
If (x mod 9=0) then writeln('Делится на 3 и на 9);
End;
If (x mod 3=0) then begin
If (x mod 9>0) then writeln('Делится только на 3);
End;
If (x mod 9=0) then begin
If(x mod 3>0) then writeln('Делится только на 9);
End;
End.
P.S. Вы уверены, что СТОзначное число?