Составте программу в pascal abc где необходимо ввести некоторое целое число и, если оно чётное, уменьшить его в 2 раза

Настя9876899 Настя9876899    3   07.09.2019 06:20    0

Ответы
natali250374mailru natali250374mailru  06.10.2020 22:34
Var
  a:integer;
begin
  write('a=');
  readln(a);
  if odd(a) then writeln(a/2:6:2);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика