Придумать задачу для Pascal ABC, которая содержит не менее 3 условий (разветвляющиеся вычислительные процессы) и написать программу к ней
Ответы
Ответ дал:
1
Задача: Пользователем вводится целое число. Если оно чётное и больше 20, то отнять 5, если меньше 20, прибавить 5. Если нечетное и отрицательное, то поменять знак числа, если положительное, то умножить на 2. Вывести полученное число на экран.
kordark:
var a;
var a;
begin
readln(a);
if a mod 2=0 then
if a<20 then
a:=a+5
else
a:=a-5
else
if a<0 then
a:=a*(-1)
else
a:=a*2;
writeln(a);
end.
begin
readln(a);
if a mod 2=0 then
if a<20 then
a:=a+5
else
a:=a-5
else
if a<0 then
a:=a*(-1)
else
a:=a*2;
writeln(a);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад