Дано число х увеличьте его на 20 если оно не отрицательно, во всех остальных случаях уменьшить на по братски

Давидка12 Давидка12    1   21.04.2020 20:49    1

Ответы
Albina1809 Albina1809  13.10.2020 15:21

//Pascal

var

 a: integer;

begin

 readln(a);

 if a > 0 then a := a + 20

 else

   a := a - 10;

 writeln(a);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика