Нужен программный код для Паскаль.

Для последовательности целых чисел а, b, c все четные числа разделите на 2. Нечетные оставьте без изменений.

Question

Информатика

Игоша

31 декабря, 03:21

Нужен программный код для Паскаль.

Для последовательности целых чисел а, b, c все четные числа разделите на 2. Нечетные оставьте без изменений.

+1

Ответы (1)

Знаешь ответ?

Мина · Answer 1

Var a, b, c:integer;

begin

readln (a, b, c);

if (a mod 2 = 0)

a:=a div 2;

if (b mod 2 = 0)

b:=b div 2;

if (c mod 2 = 0)

c:=c dic 2;

writeln (a,' ', b,' ', c);

end.

Нужен программный код для Паскаль.Для последовательности целых чисел а, b, c все четные числа разделите на 2. Нечетные оставьте без изменений.

Нужен программный код для Паскаль.

Для последовательности целых чисел а, b, c все четные числа разделите на 2. Нечетные оставьте без изменений.