Помогите написать программу на free pascal c постусловием. Вводятся в строке через пробел целые числа, которые вам необходимо тут же напечатать. Признаком конца является число 0 (ноль) . После него тоже могут стоять числа, но их печатать ненужно. Ограничения. Длина строки ввода менее 250 Пример. Входные данные: 1 5 7 0 4 6 -4 Выходные данные: 1 5 7 0

Question

Sergei · Accepted Answer

var s:string[1..255];
 i:integer;
begin
readln(s);
while(length(s)>=i)
begin
if (s[i]="0") then break else
if (s[i]" ") then write(s[i]," ");
inc(i);
end;
readln;
end.