Нужно завтра сдать, завтра последний день, очень Як визначити розмір вертикального відступу від тексту до границі рисунку?
2. Як визначити розмір горизонтального відступу від тексту до границі рисунку?
3. В чому полягає специфіка плаваючого вирівнювання рисунків?
4. Навіщо потрібно записувати альтернативний текст при визначенні рисунків?
5. Навіщо потрібні мініатюри при визначенні рисунків?
6. Як вирівняти рисунок по верхньому краю рядка?
7. В чому полягає різниця між вирівнюванням рисунку bottom та absbottom?
8. В чому полягає різниця між вирівнюванням рисунку absmiddle та middle?
9. В чому полягає різниця між вирівнюванням рисунку texttop та top?
10. Як визначити товщину границі рисунка?
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a<>0 do
begin
if (a mod 2 = 0)and(a<0) then k1:=k1+1;
if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end;
readln(a);
end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
then writeln('среднее арифметическое нечётных чисел = ',s/k2)
else writeln('в последовательности нет нечётных чисел');
end.
Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45