Если в ячейках A1,A2,A3 записаны числа, то формула:
=IF(A1=0;0;IF(A2=0;0;IF(A3=0;0;1)))
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите a и b через пробел:');
var y:=1/a+1/b;
Writeln('y=',y)
end.
<u>Пример</u>
Введите a и b через пробел: 3.8 7
y=0.406015037593985
Var a,b,c,sa: real;
begin
writeln ('Введите 3 числа:');
readln (a,b,c);
sa:=(a+b+c)/3;
writeln;
writeln ('Среднее арифметическое = ',sa)
end.
-----------------
Введите 3 числа:
28.48 53.11 674.1
Среднее арифметическое = 251.896666666667
1 байт-8 бит
1 Кбайт-1024 байт
1 Мбайт-1024 Кбайт
1 Гбайт-1024 Мбайт
1 Тбайт-1024 Гбайт
1 буква-1 байт
Например Аппарат
У аппарата есть 7 букв
Теперь 7 × 8=56