Такс задача!?) Шучу... там надо закачать сначало анти вирус протереть диски и закачать
За вранье про 30 баллов не старался рисовать XD , а так всё правильно ;)
<span>1 килобайт = 1024 байта
1 мегабайт = 1024 килобайта = 1024*1024 байт = 1048576 байт</span>
0,131 (10) = <span>0.03114 (5).
21,8 (10) = </span>210.2101 (3).<span>
104,33 (10) = </span><span>404.1311 (5).</span>
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadReal3('Введите через пробел три числа:');
if a*b*c<>0 then Writeln((a+b+c)/3)
end.
<u>Пример</u>
Введите через пробел три числа: 6.3 -12 8.143
0.814333333333333