При любом а выражение равно 1
// PascalABC.Net 3.0, сборка 1066
begin
var M:=SeqRandom(15,-25,25).ToArray;
Writeln('Исходный массив М: ',M);
Writeln('Разность максимального и первого элементов: ',M.Max-M[0])
end.
<em><u>Тестовое решение:</u></em>
Исходный массив М: [1,-15,24,-14,-3,16,9,-16,5,9,11,19,12,18,-21]
Разность максимального и первого элементов: 23
Uses graphabc;
var x,y:integer;
begin
x:=100;
y:=100;
SetPenWidth(8);
SetPenColor(clBlue);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clBlack);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clred);
Drawcircle(x,y,50);
inc(y,65);
dec(x,165);
SetPenColor(clyellow);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clLimeGreen);
Drawcircle(x,y,50);
inc(x,110);
end.
DIV -целочисленное деление.
MOD- остаток об деления.
391 DIV 100+(391 MOD 100) DIV 16+391 MOD 10=3+(91) DIV 16 + 1 = 3+5+1=9
Если расписывать то получается:
DIV (391/100=3,91)=3 перед запятой
MOD (391/100=3,91)=91 после запятой
все остальное аналогично :
DIV (91/16=5,6875 )=5
MOD (391/10 = 39,1)=1
775 DIV 100 +(875 MOD 100 DIV +875 MOD 10) - в этом я незнаю к чему относится второй DIV или второй + к чему относится... прошу прощение за неполный ответ...
Скажи а картинки к заданию нет
ето может бить если она нашла или взяла ещо одно яблоко