В ячейке Б2 через мастер функций забиваешь 2 функции: ЕСЛИ ДЕЛИТСЯ НА 2, ТО 1-ПРАВДА 0-ЛОЖЬ, ЕСЛИ ДЕЛИТСЯ на 10, ТО 2- ПРАВДА 0-ЛЛЖЬ.. Копируешь до 25 ячейки, у тебя будут цифры 0, 1, 2. дальше в любых ячейках создаешь
функцию СЧЕТЕСЛИ, выделяешь диапазон (Ячейку с Б2 по Б25). Компа рядом нет, поэтому не так подробно.
//Pascal ABC.NET 3.1 сборка 1256
Const
n=10;
Var
ar:array[1..n] of integer;
i,k,min:integer;
begin
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
begin
readln(ar[i]);
if ar[i]<min then min:=ar[i];
end;
for i:=1 to n do
if ar[i]-5=min then inc(k);
writeln(k);
end.
Program help;
Var k, l,x,y: integer;
Begin
readln(k,l);
readln (x,y);
if y>k*x+l then
write ('точка лежит над прямой')
else
if y<k*x+l then
write ('точка лежит под прямой')
else
write ('точка лежит на прямой');
End.
//Pascal ABC.NET 3.1 сборка 1256
Var
m,n,i,j:integer;
begin
readln(m,n);
for i:=m to n do
begin
write(i,':');
for j:=2 to i div 2 do
if i mod j=0 then write(j:4);
writeln;
end;
end.
Пример ввода:
12
16
Пример вывода:
12: 2 3 4 6
13:
14: 2 7
15: 3 5
16: 2 4 8