Помогите пожалуйста
уменьшение положительного числа до тех пор, пока оно неотрицательное. Как только число становится отрицательным, команда повторения заканчивает свою работу программу в Pascal ABC
Ответ
Автор - djrazor308
Странная задача, однако..но: program z1; var k:integer; begin writeln('Введите число'); readln(k); while(k>0) do k:=k-1; writeln(k); end.