Ячейка имеет двумерную координату: столбец и строку. Столбцы обозначаются буквами, а строки цифрами. Чтобы узнать количество ячеек в диапазоне, нужно количество столбцов диапозона умножить на количество строк диапозона.
Например, диапозон A1:B5
В него входят столбцы А и B, т.е. всего 2 столбца, и строки с 1 по 5 включительно.
Значит ячеек в диапазоне 2*5 = 10.
G23:G153 - тут один столбец и 131 строка (с 23 по 153 включительно)
1*131 = 131 ячейка.
Последний пример рекомендую сделать самостоятельно.
<span>#include <iostream>
int main()
{
int sum = 0, n = 0, value = 0;
std::cin >> value;
while(value) {
n = value % 10;
value /= 10;
if(n % 2) sum += n;
}
std::cout << sum;
<span>}</span></span>
<h3>PascalABC.NET 3.4.2, сборка 1863 от 10.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function Conv(s: string): string;
begin
var d := s.ToCharArray;
var (i, found) := (d.High, False);
while i >= 1 do
if d[i] > d[i - 1] then
begin
found := True;
break
end
else i -= 1;
if found then
begin
s := s[:i];
var c := d[i - 1];
d := d[i - 1:];
d.Sort;
var j := d.IndexOf(c) + 1;
s += (d[j] + d?[:j] + d?[j + 1:]).JoinIntoString
end
else s := '-';
Result := s
end;
begin
var ms := Arr('1890', '83849', '126631', '146531', '32749972');
foreach var s in ms do
Conv(s).Println
end.
<h2>1908</h2><h2>83894</h2><h2>131266</h2><h2>151346</h2><h2>32772499</h2>
При и ноль стоит выше, то есть, если будет 1 и 0, то результат тоже ноль, а при или выше стоит единица.
Var
a, b, c: real;
begin
write('Стороны треугольника: ');
read(a, b, c);
write('Площадь треугольника: ', sqrt((((a + b + c) / 2)) * (((a + b + c) / 2)-a) * (((a + b + c) / 2)-b)*(((a + b + c) / 2)-c)));
end.
var
num: integer;
begin
write('Введите двузначное число: ');
read(num);
write('Произведение чисел данного числа: ', (num MOD 10) * (((num MOD 100)-(num MOD 10)) / 10));
end.