Дано целое число, которое вводится с клавиатуры. Если оно является
положительным то вычесть из него 1, отрицательным прибавить к нему 5, равно нулю
заменить на 121. Вывести полученное число. Написать полученную программу в Pascal
Ответы
Ответ дал:
1
var
a:integer;
begin
read(a);
if a = 0 then
write(121);
if a = 0 then
exit
else
if a > 0 then
a:= a + 1
else a:= a + 5;
writeln(a);
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад