Игорь --ряженка--закусочная,
Юра --кофе --столовая,
Артем --чай--кафе,
Вадим --молоко--буфет.
Ответ:
var
a: array [1..3] of Integer;
i, imin: Integer;
begin
for i := Low (a) to High (a) do begin
Write (i, ' число: ');
ReadLn (a [i]);
end;
imin := 0;
for i := Low (a) to High (a) do begin
if a [i] mod 2 = 0 then
if imin = 0 then
imin := i
else if a [i] < a [imin] then
imin := i;
end;
if imin <> 0 then
WriteLn ('Наименьшее четное = ', a [imin])
else
WriteLn ('Четных чисел нет.');
ReadLn;
end.
Естественная форма - обычная привычная форма без мантисы и тп
а) 0,001283 х 10^5 = 0,001283 х 100000 = 128,3
б) 13,4501 х 10^0 = 13,4501 х 1 = 13.4501
в) 0,923Е-3 = 0,923 x 10^(-3) = 0,923 x 0.001 = 0,000923
№7
172₈=1*8²+7*8¹+2*8⁰=64+56+2=122₁₀
2ЕА₁₆=2*16²+14*16¹+10*16⁰=746₁₀
101010₂=1*2⁵+0*2⁴+1*2³+0*2²+1*2¹+0*2⁰=32+0+8+0+2+0=42₁₀
10,1₂=1*2¹+0*2⁰+1*2⁻¹=2+0+0,5=2,5₁₀
243₆=2*6²+4*6¹+3*6⁰=72+24+3=99₁₀
№6
143,511₁₀=1*10²+4*10¹+3*10⁰+5*10⁻¹+1*10⁻²+1*10⁻³
143511₈=1*8⁵+4*8⁴+3*8³+5*8²+1*8¹+1*8⁰
143511₁₆=1*16⁵+4*16⁴+3*16³+5*16²+1*16¹+1*16⁰
1435,11₈=1*8³+4*8²+3*8¹+5*8⁰+1*8⁻¹+1*8⁻²
Program n_1;
uses math;
var a:array [1..6] of integer; i: integer;
begin
for i:=1 to 6 do begin read (a[i]); a[i]:=a[i]*2; end;
writeln;
for i:=1 to 6 do write(a[i], ' ');
end.