read(n);
s = str(n);
n1 := int(s[1]);
n2 := int(s[2]);
n3 := int(s[3]);
if (n1+n2+n3) mod 2 = 0 then writeln("Сумма чисел четная")
2)рукопожатия=мальчики*девочки
77=х*у
77 делится только на 7 и 11(помимо 1 и 77)
<span>7+11=27(учеников)</span>
<span>Условный
оператор тут используют в старых версиях Паскаля, в которых не было
реакции на ошибку деления на ноль. В современных версиях, например,
PascalABC.NET не нужно делать никаких проверок.
Во вложениях 1 и 2 показано, что происходит при вводе значения х=15 в версии Free Pascal.
В третьем вложении показана работа в PascalABC.NET 3.3
</span>
Школа-ш*кола*
учит* и ель
ко***м***п**ью**тер*******
10 12 14 16 18 20
Получается шесть