Дано целое число а. если значение а< > 0, то необходимо уменьшить его на 4. написать программу для решения этой . программа должна иметь дружественный интерфейс.
АняПоторалова
1
31.07.2019 03:10
4
Другие вопросы по теме Информатика
Чикчирик12
17.08.2019 12:00
alexsey13
17.08.2019 12:00
минкп
17.08.2019 12:00
mishkateddi19
29.07.2019 17:30
Suzdik23
08.07.2019 03:30
АннаК78
11.05.2020 23:56
satanbeat
11.05.2020 23:56
lizadruzhinina1
11.05.2020 23:56
Популярные вопросы
- страница к заданию.ПАМАГИТИ...
3 - На рисунке — схема дорог, связывающих пункты А, Б, В, Г, Д, Е, Ж, И, К, Л. По каждой...
1 - Вкинути в рот фразеологізм...
3 - 1 под сиьббосмттьолллооллщ...
3 - Приведи обыкновенные дроби к знаменателю 40....
3 - То, что предлагали обломову визитеры, достойно того, чтобы Илья Ильич поднялся с...
1 - Чемпион деп кімді айтады?...
3 - С. Меңдешовтың үш тұлғалық қасиетін суреттеДұрыс жауап саны: 3...
2 - Зависимость скорости от времени движения задана формулой u=2+0,8 t. A) Опишите вид...
1 - Укр литхто засилав старостів до дочки найбагатшого козака Лози і спіймав облизня...
3
Var a:longint;
Begin
readln(a);
If a<>0 then a:=a-4;
writeln(a);
End.
if A > 0 or A < 0:
A -= 4