По центру: когда абзац нужно сделать чётко по середине.
По ширине: добавляются автоматически между словами где надо пробелы, чтобы отступ от полей и до текста с обеих сторон был чётко одинаковен.
Var
c : integer;
k : char;
begin
c := 0;
while not eoln do
begin
read (k);
if k = ' ' then
begin
if c > 10 then
begin
write ('YES');
halt;
end;
c := 0;
end
else
c := c + 1;
end;
if c > 10 then write ('YES') else write ('NO');
end. <span>
</span>
{Файл prog1_13_3.pasЗадача: Даны значения трёх целочисленных переменных a, b, c. Переместить их значения так, чтобы переменная а получила бы исходное значение b, b получила бы значения c, а переменная c - значение a.Автор: Башмаков М. Д., ИТ-11Дата: 15,09,2015} var a, b, c, k: integer;
begin k:=0; {Ввод} writeln('введите переменные a, b, c'); readln (a, b, c); {Перемещенние} k:=a; a:=b; b:=c; c:=k; {Вывод} writeln('а=',a,' b=',b, ' c=',c);end.
Любая одиночная инструкция не является алгоритмом, так как исходя из определения алгоритма, это прежде всего набор инструкций! И если инструкция следует за инструкцией, то образуется алгоритм. Пример из ассемблера, инструкция mov EAX, 245AC сама по себе не является алгоритмом, а если добавить например следом за ней mov EBX, EAX, уже получается алгоритм
Написано на Паскале. Все работает, можешь сам проверить