Предмет: Информатика, автор: артурка2

увеличить число x на 10,если оно положительное,во всех остальных случаях уменьшить его на 10

Ответы

Автор ответа: vladmor
0
//Pascal
var
  a: integer;
begin
  readln(a);
  if a > 0 then a := a + 10
  else
    a := a - 10;
  writeln(a);
end.
Похожие вопросы