=1*1/2=1/2=0,5
...........................
Program n1;
Uses CRT;
Const n=10;
Var a: array[1..n] of integer;
i,max,k: integer;
begin
ClrScr;
Randomize;
For i:=1 to n do
begin
a[i]:=random(50);
write(a[i]:3);
end;
For i:=1 to n do
If a[i] mod 2=0 then
If a[i]>max then
begin
max:=a[i];
k:=i;
end;
writeln;
Writeln('Элемент ',max,' с номером ',k);
readln
end.
Div-целая часть от деления
mod-остаток от деления
допустим поделим 25:4=6.25
где 6 - div
где 25 - mod
------------------------
x=336
y=8
x=x div y = 336 div 8 = 42 , тк тут нет остатка так и остается
y=x mod y = 42 mod 8 = 5.25 , но там нужен mod значит 25
508,03=5*10^2+0*10^1+8*10^0+0*10^-1+3*10^-2
1101,001=1*2^3+1*2^2+0*2^1+1*2^0+0*2^-1+0*2^-2+1*2^-3
C=12 E=14 D=13 A=10 значит
CE,DA=12*16^1+14*16^0+13*16^-1+10*16^-2