Question

С!

даны три числа. удвоить их, если они целые, иначе нецелые заменить их целыми частями.

Answer 1

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.