===== PascalABC.NET =====
function Min3(a, b, c: real) := Min(Min(a, b), c);
begin
var (a, b, c) := ReadReal3;
Min3(a, b, c).Println
end.
Кошка первая буква не гласная а последняя не согласная
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
А) 110000110101=6065
Б) 1010101,110010=125,62
В) 11100001011001=16131
Г) 1000010101=1025
354
235, 15
472, 35
417, 165
317, 35