цикл с постусловием? если да, тогда это цикл do{ } ; в do пишем блоки операторов, а в while - условие выполнения.
Alena824
23.10.2020
Var a, b, c, t: integer; begin readln(a, b, c); if (a > b) then begin t : = a; a : = b; b : = t; end; if (b > c) then begin t : = b; b : = c; c : = t; end; if (a > b) then begin t : = a; a : = b; b : = t; end; writeln(a, ' ', b, ' ', c); end.
MikhailNechaeva
23.10.2020
Program wordscounter(output); var str: string; i, count: integer; begin write('сторка: '); readln(str); i : = length(str); if i > 0 then begin count : = 1; while i > 0 do begin if str[i] = ' ' then count : = count + 1; i : = i - 1; end; end else count : = 0; writeln('число слов: ', count); readln; end.
do { } while ;