Погрешность как на всех приборах одной единице шкалы. В твоём случае это 1%
Program gruz;
uses crt;
var x,y,z: integer;
begin
writeln( 'введіть масу кожного груза через пробіл і натисніть enter');
read (x,y);z:=(x+y);
writeln (z);
<span>end.</span>
Тут изображен цикл, а мы объявили не с клавиатуры она 256 а б 0
и тут сказано если а = 1 то идем к завершению программы, но пока а!=0
то будет производится вычисления что а будет делится на 2 (8 раз пройдет цикл) а к б будет присваиваться значения его + новое а
к примеру
1) 256/2 = 128 б = 0+128
2)64 192
3)32 224
4)16 240
5)8 248
6)4 252
7)2 254
8)1 - выход
последняя б на выходе будет 254
про спасибо не забудь)
Uses crt;
var r,h:real;
begin
write('Радиус основания (см) = ');
read(r);
write(#'Высота цилиндра (см) = ');
read(h);
writeln('Объем цилиндра ',pi*r*r*h:0:2,' куб.см.');
end.<span>
</span>
В 1 килобайте(Кб )1024 байт(б)
в 1 байте 1/1024 килобайт
в 30 байт 30/1024 килобайт=15/512 Кб