Дано целое число А. Если значение А<>0, то необходимо уменьшить его на 4. Написать программу для решения этой задачи. Программа должна иметь дружественный интерфейс.
Ответы
Ответ дал:
0
Program chisloA;
Var a:longint;
Begin
readln(a);
If a<>0 then a:=a-4;
writeln(a);
End.
Var a:longint;
Begin
readln(a);
If a<>0 then a:=a-4;
writeln(a);
End.
Ответ дал:
0
A = int(input())
if A > 0 or A < 0:
A -= 4
if A > 0 or A < 0:
A -= 4
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад