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

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

Question

Информатика

Егоша

2 марта, 01:43

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

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

+5

Ответы (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. Нечетные оставьте без изменений.