Как убрать лишний пробел в конце вывода ответа - Free Pascal
Формулировка задачи:
У меня есть прога:
КАК сделать, чтоб при выводе ответа ответ был через пробел, но без последнего пробела, тоесть введя число 30 программа выдаст ответ:6_28_.
Как убрать последний пробел. (_- пробелы)
var f, k, j, n, d, t, p, z, sum: longint; sov, del: array[1..100] of integer; begin write(''); readln(n); for k := 1 to n-1 do begin for j := 1 to 100 do del[j] := 0; d := 0; f := k; for z := 1 to f-1 do begin if f mod z = 0 then begin d := d + 1; del[d] := z; end; end; sum := 0; for t := 1 to d do sum := sum + del[t]; if sum = k then begin p := p + 1; sov[p] := k; end; end; for k := 1 to p do write(sov[k],' '); end.
Решение задачи: «Как убрать лишний пробел в конце вывода ответа»
textual
Листинг программы
var n,i,j,k,s:integer; begin read(n); s:=0; for i:=2 to n do begin k:=1; j:=2; while j*j<i do begin if i mod j=0 then k:=k+j+i div j; j:=j+1; end; if k=i then begin write(i,' '); s:=1; end; end; if s=0 then write(0) end.
Объяснение кода листинга программы
- Объявлены пять переменных: n, i, j, k, s типа integer.
- Переменная n инициализируется значением, полученным от пользователя при чтении.
- Переменная s инициализируется нулем.
- Запускается цикл for, который выполняется от i=2 до n.
- Внутри цикла определены четыре переменные: k, j, которые инициализируются значениями 1 и 2 соответственно.
- Запускается внутренний цикл while, который выполняется до тех пор, пока j*j меньше i.
- Внутри внутреннего цикла while проверяется, делится ли i на j без остатка. Если да, то к k прибавляется j и i деленное на j.
- Значение j увеличивается на 1.
- Цикл while выполняется до тех пор, пока j*j меньше i.
- Если условие в внутреннем цикле while выполняется, то значение k увеличивается на i, деленное на j, и на j.
- Цикл for завершается.
- Если переменная s равна нулю, то выводится значение 0.
- Если в цикле for было найдено простое число, то выводится само простое число.
- Если в цикле for не было найдено простое число, то выводится сообщение об этом.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д