Нужно завтра сдать, завтра последний день, очень Як визначити розмір вертикального відступу від тексту до границі рисунку?2. Як визначити розмір горизонтального відступу від тексту до границі рисунку?3. В чому полягає специфіка плаваючого вирівнювання рисунків?4. Навіщо потрібно записувати альтернативний текст при визначенні рисунків?5. Навіщо потрібні мініатюри при визначенні рисунків?6. Як вирівняти рисунок по верхньому краю рядка?7. В чому полягає різниця між вирівнюванням рисунку bottom та absbottom?8. В чому полягає різниця між вирівнюванням рисунку absmiddle та middle?9. В чому полягає різниця між вирівнюванням рисунку texttop та top?10. Як визначити товщину границі рисунка?
Ответы
Var a,k1,k2,s:integer;
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
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
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
с решением. с решением. ">
Автор: msangelika1010
Сколько кбайт составляет сообщение, содержащее 6, 5 мбайт?
Автор: Oslopova
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