Ввести число если оно четное разделить его на 4 если не четное умножить на 5
Ввести число если оно четное разделить его на 4 если не четное умножить на 5
Гость
Ответ(ы) на вопрос:
Гостьpascal abc................
ГостьVar A : Integer;
Begin
Readln(A);
If Odd(A) then A:=A*5 else A:=A div 4;
Writeln(A);
end.
Не нашли ответ?
Похожие вопросы