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

veronikarub veronikarub    1   01.06.2019 07:00    3

Ответы
Рустам2009 Рустам2009  02.07.2020 13:55
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика