Нужен программный код для Паскаль.
Для последовательности целых чисел а, b, c все четные числа разделите на 2. Нечетные оставьте без изменений.
Для последовательности целых чисел а, b, c все четные числа разделите на 2. Нечетные оставьте без изменений.
More Questions From This User See All
Answers & Comments
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.