Предмет: Информатика, автор: диля22

ввести число если оно четное разделить его на 4 если не четное умножить на 5

Ответы

Автор ответа: APALoff
0
Var A : Integer;
Begin
  Readln(A);
  If Odd(A) then A:=A*5 else A:=A div 4;
  Writeln(A);
end.
Похожие вопросы