Дано вещественнре число x. напишите программу, которая вычисляет целую часть числа x, округлённую до ближайшего целого, и выводит на экран монитора результат.

var

x: real;

begin

readln(x);

writeln(round(x));

end.

// pascalabc.net 3.2, сборка 1356 от 04.12.2016 // внимание! если программа не работает, обновите версию! procedure lineequation(a,b: real; var x: real; var flag: integer); begin   if a=0 then flag: =b=0? -2: -1   else begin x: =-b/a; flag: =0 end end; begin   var a,b,x: real;   write('введите a,b: '); read(a,b);   var flag: =1;   lineequation(a,b,x,flag);   case flag of   0: writeln('x=',x);   -1: writeln('решений нет')   else writeln('бесконечое множество решений')   end end.

Пример решения с обьяснением 4277228478 закодировано таким порядком байт  0xfe 0xf1 0x53 0xbeили 4277228478_10 = fef153be_16чтоб перейти в другой порядок байт, надо их поставить в обратном порядке. почему по 2 цифры? потому что 1 байт = 8 бит = 2^8 = 256 =  от 0 до 255 или от 0 до ff в 16ричной 0xbe 0x53 0xf1 0xfe  be53f1fe_16 = 3  193  172  478_10старалась объяснить как можно яснее конкретно для этого 3070822802 = hex: b7  09  09  92hex(920909b7) = 2  450  065  847ответ 2  450  065  847