Решите по информатике, желательно подробно 1)a: =1819; b: =(a div 100)*10+9 a: =(10*b-a) mod 100 определите значения переменных после выполнения фрагмента програмы 2)a: =42 b: =1

Функция div - это нахождение целой части при делении, а mod - нахождение остатка при делении. поэтому сначала переменной а присваивается значение 1819, затем b присваивается (1819/100 (целая часть - 18))*10+9, то есть 18*10+9=189. а в конце а присваивается значение (10*189-1819)/100, где целой частью будет 0, т.к 71 не достигает 100. ответ: а=0, b=189

Const n = 4; var x, y, z: real;   i: integer; begin   write('проходной = ');     readln(x);   for i : = 1 to n do begin     write('оценка ', i, ' = ');       readln(z);     y : = y + z;   end;   if y/n > = x then      writeln('поступил')   else     writeln('не поступил'); end. // вторая var i, k: integer;   a, b: string; begin   write('k = ');   readln(k);   write('строка = ');   readln(a);   for i : = 1 to length(a) do     if i mod k > 0 then        b : = b + a[i];   writeln(b); end.

Const n = 15; var a: array[1..n] of integer;   i, j, m: integer; begin   // генерация и вывод   randomize;   for i : = 1 to n do a[i] : = random(19)-8;   for i : = 1 to n do write(a[i], ' ');   writeln;       // сортировка   for i : = 1 to n-1 do begin     m : = i;     for j : = i+1 to n do       if a[j] < a[m] then m : = j;             if m < > i then begin       j : = a[m];       a[m] : = a[i];       a[i] : = j;     end;   end;   for i : = 1 to n do write(a[i], ' ');   writeln;       // поиск наибольшей разности   m : = a[2] - a[1];   for i : = 3 to n do     if a[i] - a[i-1] > m then        m : = a[i] - a[i-1];   writeln ('разность = ', m); end.