Дано целое число А. Если значение А0, то необходимо уменьшить его на 4. Написать программу для решения этой задачи. Программа должна иметь дружественный интерфейс.

Question

Виталика

13 октября, 01:07

+2

Ответы (2)

Знаете ответ на вопрос?

Митродора · Answer 1

Program chisloA;

Var a:longint;

Begin

readln (a) ;

If a0 then a:=a-4;

writeln (a) ;

End.

Леонтьич · Answer 2

Леонтьич 13 октября, 04:06

0

A = int (input ())

if A > 0 or A < 0:

A - = 4