And байламтасы мн бириккен курама шарттардын баары тен true маанисине барабар болгон туюнтманы чыгар

1 программа:

var x, y, t:integer;

begin

 for x:=3 to 15 do begin

   writeln('x = ', x);

   t := x - 2;

   y := 7*t*3-6*t+10;

   writeln('y = ', y);

   writeln('');

 end;

end.

2 программа:

const pass ='45xlua';

var x:string;

a:boolean;

begin

 a:= false;

 while a<>true do begin

    writeln('Введите пароль');

    readln(x);

    if x = pass then begin

      a:=true;

      writeln('Пароль верный');

      end

    else

      writeln('Пароль неверный, введите еще раз');

    writeln('');

 end;

end.

4 программа:

var a, a1, a2, x, kol:integer;

begin

writeln('Введите четырёхзначное число');

readln(a);

x := a;

while x<>0 do begin

  x:= x div 10;

  kol:= kol + 1;

  end;

 if (kol = 4) then begin

   a1 := a div 100;

   a2:= a mod 100;

   writeln(a1+a2);

 end

  else

    writeln('Число не является четырёхзначным');

end.

Перевести числа из 8-ной системы в 2-ную очень легко.
Нужно каждую цифру представить в виде 3 цифр по таблице:
0=000, 1=001, 2=010, 3=011, 4=100, 5=101, 6=110, 7=111.
56(8) = 101110(2)
С 16-ной системой тоже самое, только каждая цифра меняется на 4 цифры
0=0000, 1=0001, 2=0010, 3=0011, 4=0100, 5=0101, 6=0110, 7=0111,
8=1000, 9=1001, A=1010, B=1011, C=1100, D=1101, E=1110, F=1111.
AF(16) = 10101111(2)
Арифметическое сложение
10101111 + 101110 = 11011101
Арифметическое умножение - это долго, сделай сам столбиком по обычным правилам: 0*0 = 0*1 = 1*0 = 0, 1*1 = 1. Получится 1111101110010.
Логическое сложение поразрядное. 0+0 = 0, 0+1 = 1+0 = 1+1 = 1
10101111 + 101110 = 10101111
Логическое умножение. Правила те же. 0*0 = 0*1 = 1*0 = 0, 1*1 = 1.
10101111 * 101110 = 10101110