Написать программу для задачи : Вводим число с клавиатуры. Если оно положительное, то прибавляем к нему 1; если оно отрицательное, то вычитаем 2; иначе заменяем на 10. Вывести на экран полученное число
Ответы
Ответ дал:
0
var a:integer;
begin
readln (a);
if a>0 then a:=a+1
else if a<0 then a:=a-2
else a:=10;
writeln(a)
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад