Program Pr1;
uses crt;
var x,y,z:integer;
a:real;
Begin
clrscr;
readln(x,y,z);
a:=(x+y+z)/3;
writeln(a:8:3);
a:=exp(1/3*ln(x*y*z));
writeln(a:8:3);
end.
<span>Var x,y: real;
Begin
readln (x,y);
if (x>=0)and(x*x+y*y>=3*3)and(x*x+y*y<=5*5)
then writeln('YES')
else writeln('NO')
End<span>.
Пример:
4 1
YES</span></span>
Во всех версия Excel:
1. FP - <span>структура многотипных данных, представляющая все типы данных листов (в том числе сообщения об ошибках), целые числа, ссылки на диапазон, типы управления потоком для листов с макросами XLM и тип данных внутреннего хранилища двоичных данных.
2. </span>XLOPER<span> —
структура многотипных данных, представляющая все типы данных листов (в том
числе сообщения об ошибках), целые числа, ссылки на диапазон, типы управления
потоком для листов с макросами XLM и тип данных внутреннего хранилища двоичных
данных.
</span>
В Excel с 2007 года: FP12 —
структура двухмерного массива с плавающей запятой, поддерживающая все строки и
столбцы, начиная с Excel 200
XLOPER12 —
структура многотипных данных, представляющая все типы данных листов (в том
числе сообщения об ошибках), целые числа, ссылки на диапазон, типы управления
потоком для листов с макросами XLM и тип данных внутреннего хранилища двоичных
данных.
<span> </span>
Ответ 97
5х19 плюс 3х20 равно 155
2х19 плюс 20 равно 58
155 минус 58 равно 97
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadAllText('mas102.txt').ToWords;
var s:=BigInteger(0);
foreach var w in a do s+=w.ToBigInteger;
Writeln(s mod 104);
end.
<u>Результат</u>
20