Среди приведенных трех чисел записанных в различных системах счисления найдите минимальное и запишите его в ответе в десятичной системе счисления В ответе запишите только число основание системы счисления указыват не нужно
2016,368,111002
подробно решение и ответ
var n,k: real;
begin
writeln('Введите количество ящиков мыла завезенных на склад');
readln (n);
writeln ('Укажите сколько ящиков мыла ежедневно отпускалось со склада');
readln (k);
n:=n-(10*k);
If (n<0) then writeln ('Вы ошиблись. На складе не было такого количества мыла')
else writeln ('Через 10 дней на складе осталось ',n,' ящиков мыла');
end.
Если число положительное, то при величине его дробной части меньше 0.5, она просто отбрасывается, если больше - отбрасывается и к числу прибавляется единица. Если число отрицательное, то при абсолютной величине его дробной части меньше 0.5, она просто отбрасывается, если больше - из числа вычитается единица.
А функция Trunc возвращает целую часть числа.
var
p:real;
begin
Write('Введите число: '); Read(p);
Writeln('Округленное значение: ',Round(p),', целая часть: ',Trunc(p))
end.
Тестовое решение:
Введите число: -12.74
Округленное значение: -13, целая часть: -12
Введите число: 12.93
Округленное значение: 13, целая часть: 12
Введите число: 9.4323
Округленное значение: 9, целая часть: 9