Program zz;
var a:integer;
begin
readln(a);
a:=a mod 10;
if a mod 2=0 then writeln(a,' -четное число')
else writeln(a,' -нечетное число');
<span>end.</span>
<u>алг </u>
<u>нач</u>
вещ <em>x</em>, <em>y</em>
ввод <em>x </em>
<em>y</em> := (1 - <em>x</em> ** 2 + 5 * <em>x</em> ** 4) ** 2
вывод <em>y</em>
<u>кон</u>
10100(2)-1*2^4+0*2^3+1*2^2+0*2^1+0*2^0
Открой молоко - 3 картинка
налей молоко - 4
возьми миску 5
позови кота 1
стоп
Н = 2,3 .................. это просто чтоб ответ защитало точки тоесть