Гадость,где,где-нибудь,где-то,год,годный,гром,грохот,грош
Маша и вова, маша и олег, женя олег, женя вова ,маша женя
<span>а) справа убрать один ноль и будет в троичной системе</span>
<span><em>Program N;
var
a: integer;
</em>
<em>begin</em>
<em>write ('Введите целое число: ');</em>
<em>readln(a);</em>
<em>if a = 0 then
writeln ('ноль') {если введённое число равно 0, то вывести соответствующее сообщение}</em>
<em>else
if a = 1 then {иначе если данное число равно 1, то вывести соответствующее сообщение}</em>
<em>writeln ('один')</em>
<em>else
if a = 2 then
writeln ('2') {иначе если данное число-2, то вывести соответствующее сообщение}</em>
<em>else
writeln ('неизвестное число'); {иначе число незивестное}</em>
<em>readln</em>
<em>end.</em></span>