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.

Answer 2

Для решения этой задачи необходимо выполнить следующие шаги:

1. Считать три числа с клавиатуры.
2. Проверить, являются ли числа целыми или нет.
3. Если числа целые, то удвоить их значения.
4. Если числа нецелые, то заменить их на их целые части.
5. Вывести результат.

Пример кода на языке Python:

pythonCopy code
a = float(input("Введите первое число: "))
b = float(input("Введите второе число: "))
c = float(input("Введите третье число: "))

if a.is_integer():
    a = int(a * 2)
else:
    a = int(a)

if b.is_integer():
    b = int(b * 2)
else:
    b = int(b)

if c.is_integer():
    c = int(c * 2)
else:
    c = int(c)

print("Результат:", a, b, c)

В данном примере мы считываем три числа с помощью функции input(), проверяем каждое число на целочисленность с помощью метода is_integer(), и затем либо удваиваем значение числа с помощью операции умножения на 2 и преобразуем его к целому типу данных с помощью функции int(), либо просто преобразуем его к целому типу данных. Наконец, выводим результат с помощью функции print().