ReadLn(x);

if x mod 10 = х div 100

then Write('число паліндром')

else Write('число не паліндром');

End.

Поділимо порівну.

Наступна наша програма повинна перевіряти, чи поділяється введене з клавіатури ціле число нацело на 4. Числа а і b поділяються нацело якщо залишок від розподілу а на b дорівнює 0. Згадаємо що в Паскале є спеціальна операція обчислення залишку від розподілу одного числа на інше. Ця операція mod:

Program divide;

var m: Integer;

Begin

Write(введіть число');

ReadLn(m);

if mod 4=0

then write('поділяється на 4')

else write('не поділяється на 4');

End.

Лінійне рівняння.

Рішення лінійного рівняння ах+b = 0 залежить від значень а і b. Якщо а не дорівнює 0, то х = -b / а, якщо ж а = 0, те необхідно перевірити значення b. При b = 0 рішенням є будь-як число, а при b ¹ 0 рівняння не має рішення. Тут мається кілька умов, і в програмі рішення лінійного рівняння використовується умовний оператор:

Program near_equation;

var a, b: Real;

Begin

Write('Введіть а і b: ');