СДЕЛАТЬ ПО ИНФОРМАТИКЕ В PAINT СЛОНА БУДУ ОЧЕНЬ БЛАГОДАРНА СКИНЬТЕ НЕ КАРТИНКУ А ЧТО ТО НА ПОДОБЕ ТАКОГО uses graphABC;
begin
//ноги
rectangle(180,240,230,340);{это только одна нога }
floodfill(190,260,clbeige);
{здесь нужен еще 1 прямоугольник,копируйте команду рисования первой ноги и меняйте только X }
//туловище
Ellipse(140,30,400,210);
//голова
circle(455,100,80);
floodfill(455,100,clDarkOrange);
// глаз
circle(450,100,10);
floodfill(450,100,clblack);
//ухо
Pie(390,130,80,80,220);
//Хобот
setpenwidth(20);
setpencolor(clDarkOrange);
Arc(560,80,60,180,390);
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