Char
shortint или byte
smallint или word
smallint или word
single
string
single или real
На практике все это в настоящее время - анахронизм. Для целочисленных значений обычно используют integer, для вещественных - real.
Это позволяет во-первых, не загружать голову проблемой, что в какой-то момент результат операции не поместится в отведенные рамки, во-вторых, позволяет компилятору получать более быстрый код (данные не надо преобразовывать к какому-то типу для вычисления, а потом назад).
Если вычисляется (byte)*(smallint)+(integer) div (shortint), какого типа данные нужно выбирать компилятору для промежуточных значений и результата? А вот если все данные одного типа integer, то и думать не о чем.
Var min, n, r, m:integer;
begin
writeln('Введите целое положительное число');
read(n);
min := 10;
r := 1;
while r <> 0 do
begin
m := n mod 10;
if (m < min) and (m mod 2 = 1) then min := m;
r := n div 10;
n := r;
end;
if min = 10 then writeln('В числе нет нечетных цифр') else writeln (min)
<span>end.</span>
А) Вкус - язык
Б) Обоняние(нос), зрение (глаза)
В) зрение (глаза)
Г) Осязание - пальцы
Д) Обоняние (нюх) зрение(глаза) слух(уши)
Е) зрение (глаза) осязание, слух
Program kol_vo_elementov;
var a:array[1..10] of integer;
i, s:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(25);
write(a[i],' ');
if (a[i]>0) then
s:=s+a[i];
end;
writeln('s=',s);
end.
523 (делим на 16) 32 (делим на 16) 2
512 (=32*16) 32 (=16*2) 0
------------------------------------------------------------
11=B 0 2 523=20B(16)
20B =2*16^2+0*16^1+11*16^0=512+0+11=523
20B(16)=523