Помогите пожалуйста уменьшение положительного числа до тех пор, пока оно неотрицательное....

Question

Помогите пожалуйста
уменьшение положительного числа до тех пор, пока оно неотрицательное. Как только число становится отрицательным, команда повторения заканчивает свою работу программу в Pascal ABC

Answer 1

Странная задача, однако..но:
program z1;
var k:integer;
begin
writeln('Введите число');
readln(k);
while(k>0) do
k:=k-1;
writeln(k);
end.

Comments

не работает-обращение в 0 любого числа

---

все ок

---

робит

---

прога