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