• 1. Информатика пәні нені зерттейтін ғылым? • а) аклираттар жиынтығын• а) нелі еттерді талдау• б) ЭЕМ-нің көмегімен танбалар мен сигналдарды сақтау заңдылықтары• В) ЭЕМ - ein seri seен акпараттарды жинау, сақтау, Бңдеу заңдылықтары• 2. Ақпараттың өлшем бірлігі• А) бид ба• а) од бет• Б) би, байт• 5) д. б• 3. битьсязі кридай тілдегі қай сөзден кыскартылып алынған?• а) ағылшын тіліндегі Бішу digit• а) латын тіліндеri Binary digit• б) ағылшын тіліндеri Birу је• 4.Байт дегеніміз не?• а) 126ттен тұратын код• а) биттен тұратын код• б) іх биттен тұратын код• В) Ібірліден тұратан аларт• 5.Ақпараттық процестерді жүзеге асыратын құрал...• а)о пьютер• а) роден• б) сканер​

//Линейное уравнение от одной переменной вида ax+b=0
procedure lin1(a,b: real; var x: real);
  begin
    x:=-b/a;
  end;

//Линейное уравнение двух переменных вида ax+by+c=0
//имеет бесконечное множество решений (корней)
procedure lin2(a,b,c: real);
  var x,y: real; 
  n,i: integer;
  begin
    write ('Сколько пар корней вы хотите получить? ');
    readln (n);
    for i:=1 to n do begin
      write ('Введите x=');
      read (x);
      y:=(-c-a*x)/b;
      writeln ('   y=',y);
    end;
  end;
  
var
  a,b,c,x,y: real;
  n: integer;
begin
  write ('Сколько переменных в уравнении - 1 или 2? ');
  readln (n);
  if n=1 
    then begin
      write ('Введите коэффициент при х: а=');
      readln (a);
      write ('Введите свободный коэффициент b=');
      readln (b);
      lin1(a,b,x);
      writeln ('x=',x);
    end
    else begin
      write ('Введите коэффициент при х: а=');
      readln (a);
      write ('Введите коэффициент при y: b=');
      readln (b);
      write ('Введите свободный коэффициент c=');
      readln (c);
      lin2(a,b,c);
    end;
end.
пример 1
Сколько переменных в уравнении - 1 или 2? 1
Введите коэффициент при х: а=3
Введите свободный коэффициент b=9
x=-3
пример 2
Сколько переменных в уравнении - 1 или 2? 2
Введите коэффициент при х: а=2
Введите коэффициент при y: b=2
Введите свободный коэффициент c=-4
Сколько пар корней вы хотите получить? 3
Введите x=0
   y=2
Введите x=2
   y=0
Введите x=-2
   y=4

Program test;
uses utils;
var
  n,i,sum,time:longint;
  flag:boolean;
begin
    readln(n);
    if n<2 then flag:=false;{Единица - не простое число}
    if n=2 then flag:=true;{2 - простое}
    if (n>2) and (n mod 2 <> 0) then begin{ после двойки простые числа только нечетные}
      for i:=1 to n do begin{проверяем что бы было только 2 делителя}
        sum:=sum+1;
      end;
      if sum=2 then flag:=true;
    end
    else flag:=false;
    if flag then writeln('Число простое') else writeln('Число НЕ простое');
    time:=milliseconds;
    writeln('Времени затрачено ',time:10,' ms.');
end.
Все проверки сделаны для сокращения времени работы программы.