Для решения задачи используйте формулу:
=СЧЁТЕСЛИ(D2:D19;">300")
В Excel есть следующие полезные функции:
СЧЁТЕСЛИ
Подсчитывает количество ячеек в диапазоне, удовлетворяющих заданному условию.
СЧЁТЕСЛИМН
Подсчитывает количество ячеек внутри диапазона, удовлетворяющих нескольким условиям.
СРЗНАЧЕСЛИ
Возвращает среднее значение (среднее арифметическое) всех ячеек в диапазоне, которые удовлетворяют данному условию.
СРЗНАЧЕСЛИМН
Возвращает среднее значение (среднее арифметическое) всех ячеек, которые удовлетворяют нескольким условиям.
Var k,sum:integer;
begin
sum:=0;
for k:=50 to 100 do
if((k mod 2 = 0) and (k mod 3 =0)) then sum:=sum+k;
writeln(sum);
end.
Ну отдыхает и че?.......,,.,,
1 действие.Набор текста.
2.действие.Выделить текст.
3.действие. Гистограмма.
4.действие. Градиетная заливка.
Как-то так.