Var n:integer;
begin readln(n);
if n mod 10 = 0 then write(2) else write(1);
<span>end.</span>
const
n = 6;
var
i, j, k: integer;
a: array [1..6, 1..6] of integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
if (i = j) or (j = 1) or (i = 1) or (i = 6) or (j = 6) then
a[i, j] := 1
else
a[i, j] := 0;
write(a[i, j]:3);
end;
writeln();
end;
end.
<span><span>pазpаботка вычислительных систем и пpогpаммного обеспечения;</span><span>теоpия инфоpмации, изучающая процессы, связанные с передачей, приёмом, преобразованием и хранением информации;</span>математическое моделирование, методы вычислительной и прикладной математики и их применение к фундаментальным и прикладным исследованиям в различных областях знаний;<span>методы искусственного интеллекта, моделирующие методы логического и аналитического мышления в интеллектуальной деятельности человека (логический вывод, обучение, понимание речи, визуальное восприятие, игры и др.);</span><span>системный анализ, изучающий методологические средства, используемые для подготовки и обоснования решений по сложным проблемам различного характера;</span><span>биоинформатика, изучающая информационные процессы в биологических системах;</span><span>социальная информатика, изучающая процессы информатизации общества;</span><span>методы машинной графики, анимации, средства мультимедиа;</span><span>телекоммуникационные системы и сети, в том числе, глобальные компьютерные сети, объединяющие всё человечество в единое информационное сообщество;</span><span>разнообразные пpиложения, охватывающие производство, науку, образование, медицину, торговлю, сельское хозяйство и все другие виды хозяйственной и общественной деятельности.</span></span>