Составить программу получающую на входе целое число a. Если a меньше 0, тогда a:=a+3, иначе a:=a-1. Какой результат выдаст программа при a = 0, a = -5, a=5?
Составить программу в паскаль, если можно то скрином из паскаля!
Составить программу в паскаль, если можно то скрином из паскаля!
More Questions From This User See All
Answers & Comments
var
a: integer;
begin
Read(a);
if a < 0 then a := a + 3 else a := a - 1;
Writeln('Конечный результат', a);
end.
Тестовое решениеЖ
Введите А:= 0
Конечный результат-1
Введите А -5
Конечный результат-2
Введите А -5
Конечный результат 4