- основание четное, смотрим на последнюю цифру, это 0 - четная цифра, значит все это число четное.
- основание четное, смотрим на последнюю цифру, это D 13, цифра 13 не четное, значит число не четное
- основание четное, см на последнюю цифру, это A - 10, четная цифра, четное число.
- основание не четное, см на сумму цифр: 3+2=5, 5 не четное, число не четное
- основание четное, см на последнюю цифру 3 - не четное, число не четное
- основание не четное, см на сумму цифр: 3+5 = 8, четное, число четное., ,
Объяснение:
uses GraphABC;
begin
line(0,0,640,240);
line(45,0,640,240);
line(89,0,640,240);
line(132,0,640,240);
line(176,0,640,240);
line(219,0,640,240);
line(263,0,640,240);
line(306,0,640,240);
line(350,0,640,240);
line(393,0,640,240);
line(437,0,640,240);
line(480,0,640,240);
end.
uses GraphABC;
begin
line(0,0,640,0);
line(0,47,640,47);
line(0,94,640,94);
line(0,141,640,141);
line(0,188,640,188);
line(0,235,640,235);
line(0,282,640,282);
line(0,329,640,329);
line(0,376,640,376);
line(0,423,640,423);
line(0,470,640,470);
end.
Пример
for i:=1 to 10 do write(arr[i],' ');