С помощью компьютера модно найти информацию иди видео урок, что очень полезно в век новых технологий и для учебы
Var
p, r: real;
f: Text;
begin
Assign(f, 'input.txt');
Reset(f);
read(f, p);
Close(f);
r := p - 0.1 * p;
r := r + 0.1 * r;
writeln(r:0:2)
end.
Тестовое решение:
9.90
Переменной F присвоить значение, равное 125
1 байт 8 битов.(так для инфы)
1 буква = 1 байту
10*1=10 байтов в слове информация.