Program zadacha;
Const n = 10;
Type mas=array[1..n] of integer;
Var s,i,k,d:integer;
m:mas;
Begin
s:=0;
k:=0;
readln(d);
For i:=1 to n do
read(m[i]);
For i:=1 to n do
if m[i]<d then begin
s:=s+m[i];
k:=k+1;
end;
writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);
end. (Это решение для случая если вы вводите сразу весь массив чисел)
Program zadacha;
Const n = 10;
Var s,i,k,d,m:integer;
Begin
s:=0;
k:=0;
readln(d);
for i:=1 to n do begin
readln(m);
if (m < d) then begin
s:=s+m14;
k:=k+1;
end;
end;
writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);
end. (А это решение для того случая когда вы вводите элементы по одному )
Абзац є ключовим елементом у структурі документа для багатьох текстових процесорів.
Указані операції включають установку границь абзаців і абзацних відступів, вирівнювання, а також вмикання переносу слів.
Установку границь абзаців здійснюють за. до маркерів відступів, що знаходяться на координатній лінійці, або відповідними командами меню.
Вирівнювання (виключна). Розрізняють чотири види горизонтального (вліво, вправо, по центру, по ширині) і три види вертикального вирівнювання (вгору, вниз, по висоті).
Перенос. При вимкнутому режимі автоматичного переносу слово, яке не помістилося на рядку, повністю переноситься на наступний рядок. Це не додає тексту елегантності; його правий край залишається нерівним. Для поліпшення зовнішнього вигляду тексту використовують режим переносу. При ручному варіанті переносу користувач сам визначає місце переносу, вводячи дефіс, і жорстким переведенням каретки (натисканням на клавішу <Enter>) переходить на наступний рядок. Використання такого режиму переносу призводить до необхідності видалення дефісів при повторному форматуванні тексту документа.
При ввімкнутому режимі автоматичного переносу реалізується м'який варіант переносу: текстовий процесор сам ділить слово на склади і переносить його найкращим Цей режим не створює ніяких труднощів при повторному Форматуванні.
