Функции:
<u><em>trunc</em></u> - возвращает целую часть вещественного числа.
<u><em>round</em></u> - возвращает число, округленное до ближайшего целого. Если вещественное находится посередине между двумя целыми,то округление осуществляется к ближайшему четному (банковское округление).
<em><u>div</u></em> - результат целочисленного деления, точнее округленное до ближайшего целого по направлению к 0.
<em><u>mod</u></em> - остаток от целочисленного деления.
Решение:
trunc(6,9) = 6
trunc(6,2) = 6
round(6,9) = 7
20 div 6 = 3
20 mod 6 = 2
2 div 5 = 0
2 mod 5 = 2
PROGRAM LOL;
VAR S:STRING;
I,K,L:INTEGER;
BEGIN
READLN(S);
for i:=1 to length(s) do
begin
if ('a'<=s[i]) and (s[i]<='z') then
k:=k+1;
if('A'<=s[i]) and (s[i]<='Z') then
k:= k+1;
if ('0'<=s[i]) and (s[i]<='9') then
l:=l+1;end;
if(k>l) then
write('в тексте больше букв')
else write('в тексте больше чисел');
<span>end.</span>
С таблицей давай сам(а). А с км все просто. Умножь км на кол-во зверя( 5 зайцев * 8=40 км; это за декабрь; за январь 8*8=64км(зайцев) 2*15=30км(волка); 2*10=20(лиса) 64+30+20=114км он пробежал за январи. Посчитай сколько он пробежал за февраль и сложи 40+114+февраль и получишь сколько он пробежал за весь сезон. А потом сложи км всех зайцев и получишь сколько он пробежал км за зайцами за весь сезон. Тоже самое сделай с лисами и волками.
Вот и вся задача. Удачи!
Ответ:
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.
<span>& - амперсанд, логическое умножение. 1*1 = 1, 1*0=0
v - логическое сложение. 1+1 = 1, 1+0 = 0, 0+0 = 0
</span>((1 & 1)v 0) & (0v 1) = ((1 * 1) + 0) * (0 + 1) = 1
((0 & 0)v0) & (1 v 1) = <span>((0 * 0) +0) * (1 + 1) = 1</span>