Нужен программный код для Паскаль.Для последовательности целых чисел а, b, c все четные числа разделите на 2. Нечетные оставьте без изменений.
Нужен программный код для Паскаль.
Для последовательности целых чисел а, b, c все четные числа разделите на 2. Нечетные оставьте без изменений.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы