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

Question

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

Answer 1

44

fotojam

01 марта 2023

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.

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

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

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