Придумать задачу для Pascal ABC, которая содержит не менее 3 условий (разветвляющиеся...

Question

Придумать задачу для Pascal ABC, которая содержит не менее 3 условий (разветвляющиеся вычислительные процессы) и написать программу к ней

Answer 1

Задача: Пользователем вводится целое число. Если оно чётное и больше 20, то отнять 5, если меньше 20, прибавить 5. Если нечетное и отрицательное, то поменять знак числа, если положительное, то умножить на 2. Вывести полученное число на экран.

Comments

var a;

---

var a;
begin
readln(a);
if a mod 2=0 then
if a<20 then <br>a:=a+5
else
a:=a-5
else
if a<0 then<br>a:=a*(-1)
else
a:=a*2;
writeln(a);
end.