Uses crt;
var i,s:integer;
a:array[1..5] of integer;
begin
randomize;
s:=0;
for i:=1 to 5 do
begin
a[i]:=random(15)-5;
if a[i]>0 then s:=s+a[i];
end;
writeln(s);
readln;
end.
uses crt;
var i,s:integer;
a:array[1..7] of integer;
begin
s:=0;
randomize;
for i:=1 to 7 do
begin
a[i]:=random(15)-5;
if ((a[i]>0) and (a[i] mod 2 = 0)) then inc(s);
end;
writeln(s);
readln;
end.
uses crt;
var i,s:integer;
a:array[1..6] of integer;
begin
s:=1;
randomize;
for i:=1 to 6 do
begin
a[i]:=random(15)-5;
if (a[i]>0) then s:=s*a[i];
end;
writeln(s);
readln;
end.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadReal();
write('Площадь: ',a*a*pi,'; Длина окр: ',2*pi*a);
end.
79 из десятичной в двоичную 1001111
131 из десятичной в двоичную 10000011
<span>101011 из двоичной в десятичную 43
</span><span>110110 из двоичной в десятичную </span>54
Var a:string;
begin
readln(a);
if length(a)=1 then a:=a+' ';
if a[2]<>' ' then delete(a,2,1) else writeln('Такого нет');
readln;
<span>end.</span>
Во всех версия Excel:
1. FP - <span>структура многотипных данных, представляющая все типы данных листов (в том числе сообщения об ошибках), целые числа, ссылки на диапазон, типы управления потоком для листов с макросами XLM и тип данных внутреннего хранилища двоичных данных.
2. </span>XLOPER<span> —
структура многотипных данных, представляющая все типы данных листов (в том
числе сообщения об ошибках), целые числа, ссылки на диапазон, типы управления
потоком для листов с макросами XLM и тип данных внутреннего хранилища двоичных
данных.
</span>
В Excel с 2007 года: FP12 —
структура двухмерного массива с плавающей запятой, поддерживающая все строки и
столбцы, начиная с Excel 200
XLOPER12 —
структура многотипных данных, представляющая все типы данных листов (в том
числе сообщения об ошибках), целые числа, ссылки на диапазон, типы управления
потоком для листов с макросами XLM и тип данных внутреннего хранилища двоичных
данных.
<span> </span>