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

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

Ответы

Автор ответа: yasadc

0

uses crt;
var a:integer;
begin
readln(a);
if a<>0 then a:=a-4;
writeln(a);
end.

Предыдущий вопрос

Следующий вопрос

Интересные вопросы

Предмет: Математика, автор: kolikovteo

Как 0,5 превисти к 0,6

6 лет назад

Предмет: Математика, автор: KILIX123

Между станциями Бахарево и Овсино 2 километра прямой дороги. Почтальон Петя выехал на велосипеде к железной дороге между станциями из леса в 840 метрах от Овсино и увидел, что к Овсино в направлении к Бахарево подъезжает поезд, на который ему нужно успеть. Петя заметил, что если он сейчас поедет на велосипеде в сторону Овсино, он окажется там одновременно с поездом. Но и если он поедет на велосипеде в сторону Бахарево, он также окажется там одновременно с поездом, который успеет преодолеть весь перегон от Овсино до Бахарево. Каково сейчас расстояние между Петей и поездом? (Условно считай, что скорость не менялась при перегоне!)

6 лет назад

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

Когда Юля, Наташа и Света спросили, какие оценки они получили за контрольную работу по математике, то учительница сказала: догадайтесь сами: в классе двоек нет, и у вас три разные оценки, причём у Юли не "3", у Светы - не "3" и не "5". Какую оценку каждый из трёх получил.

6 лет назад

Предмет: Физика, автор: MapuKa

котангенс суммы 2 углов треуг. = 1/6 найти котангенс третьего угла

10 лет назад

Предмет: Алгебра, автор: otlichnica111

Является ли число A = 1/16 (это дробь) членом геометрической прогрессии 2; 1; ... ?Если да, то укажите его номер.

СПАСИБО

10 лет назад