Задание:
Ввести число. Если оно положительное, уменьшить его на 3, пока оно не станет отрицательным. Если же число отрицательное, то увеличивать его на 2, пока оно нестанет больше 70. Ни экраны вевести оба число.
Решение:
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.
Знаете другой ответ?