1. Определите логическую связь понятий из левого столбца со словами из правого столбца,
Компьютерная наука
Информатика
Hardware
информация
Сведения
Знание
Software​

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

нарисовать отрезок

нарисовать два круга с радиусами равными длине отрезка на концах отрезка

взять одну из точек пересечения кругов

соеденить точку с концами отрезка

var n,i: integer;

begin

  read(n);

  for i: = 2 to (n-1) do

      if n mod i ==0 then begin

          writeln('no');

          break;

      end;

  writeln('yes');

end.

var a,b,c: integer;

begin

  read(a,b,c);

  if b=с then writeln(1);

  if a=с then writeln(2);

  if b=a then writeln(3);

end.