Уменьшение положительного числа до тех пор, пока оно неотрицательное. как только число становится отрицательным, команда повторения заканчивает свою работу программу в pascal abc

KasiaW KasiaW    3   01.07.2019 09:10    0

Ответы
gimnastikgirla gimnastikgirla  02.10.2020 17:16
Странная задача, однако..но:
program z1;
var k:integer;
begin
writeln('Введите число');
readln(k);
while(k>0) do
k:=k-1;
writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика