Mod(a,b)+4=mod(26,6)+4=2+4= 6 ⇒ b
mod(a,b)+1=mod(26,6)+1=2+1= 3 ⇒ c
a не изменится, 26 там и будет.
Ответ:
1000 мб это 1 гб. 1гб=1000мб
const nx = 30; mx = 30; var i,j,m,n,k,qi,qj:integer; D:array[1..nx,1..mx] of real; min:real; begin min:= 30.0; writeln('Введите n и m'); Readln(n,m); for i:= 1 to n do begin for j:= 1 to m do begin D[i,j] := random()*20 -10; write(D[i,j]:6:2); if D[i,j]< 0 then k:= k + 1; if min > D[i,j] then begin min := D[i,j];qi:=i;qj:=j; end; end; writeln; end; Writeln('минимальный элемент матрицы ',min); Writeln('номер строки ',qi); Writeln('номер столбца',qj); Writeln('количество отрицательных элементов матрицы',k); end.
18 мб = 18 * 1024 кб = 18432 * 1024 байт = 18874368 * 8 бит = 150994944 бит
Ответ: 150994944 бит
Program project; //объявляем название программы
Var //объявляем переменные
a: integer; //integer - целое число
Begin //начинаем собственно программу
>><span>a:=1</span>; //первое число будет состоять из единиц
>>While a <> 10 do //начинаем цикл, который будет длиться, пока "а" не достигнет 10
>>Begin //начало цикла
>>>>Writeln (a, a, a); //записываем "а" трижды
>>>>a:=a+1; //прибавляем к "а" единицу
>>End; //конец цикла
End. //конец программы
P. S. Вместо ">>" пиши пробелы, просто они здесь не отображаются