PascalABC.NET
1. Решение с простыми переменными
begin
var (a, b, c) := ReadReal3('Введите три числа:');
if Frac(a) = 0 then
a *= 2
else
a := Trunc(a);
if Frac(b) = 0 then
b *= 2
else
b := Trunc(b);
if Frac(c) = 0 then
c *= 2
else
c := Trunc(c);
Println(a, b, c)
end.
2. Продвинутое решение
begin
ReadSeqReal('Введите три числа:', 3)
.Select(p -> Frac(p) = 0 ? p * 2 : Trunc(p)).Println;
end.
