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
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
а)
9
5
3
б)
5 + 32
5 * 4 = 20
Объяснение:
Writeln () и write () - операторы вывода в Паскале, т.е. служат для вывода на экран каких-либо данных.
Если нужно, чтобы каждый вывод начиналась с новой строки, то надо использовать writeln (), если нет - то write ().
Выводимый текст заключается в одиночные кавычки и выводится без изменений (Write ('5 + 3') → Вывод: 5 + 3).
Для вывода значения переменной или числа - указывается просто имя переменной или число.
Разделителем текста, переменной и т.д. служит запятая.
Если есть действия с числами или переменными ( 4*5 или a*b) вычисляется результат.