Ввести число. Если оно положительное, уменьшить его на 3…

Question

Ввести число. Если оно положительное, уменьшить его на 3, пока оно не станет отрицательным. Если же число отрицательное, то увеличивать его на 2, пока оно нестанет больше 70. Ни экраны вевести оба число.

Answer 1

44

fotojam

04 августа 2022

var a: integer; beginreadln (a); if (a>0) thenrepeat a: =a-3; until (a<0); if (b<0) thenrepeat a: =a+2; until (a>70); writeln (a); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить