Текстовая информация (вроде)
Var
number : integer;
begin
number := Random(-30000, 30000);
if ((number mod 2 = 0) and (number mod 5 = 0)) then
writeln('X удовлетворяет условию')
else
writeln('X не удовлетворяет условию');
end.
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var a:=ArrRandom(ReadInteger('Введите размер массива:'),-20,20); a.Println;
Println('В первой половине положительных:',a[:a.Length div 2].Println.Where(t->t>0).Count);
Println('Во второй половине отрицательных:',a[a.Length div 2:].Println.Where(t->t<0).Count);
end.
Пример:
Введите размер массива: 10
-6 8 -12 -5 -4 16 -1 -14 1 0
-6 8 -12 -5 -4
В первой половине положительных: 1
16 -1 -14 1 0
Во второй половине отрицательных: 2
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
var (fact,sqrtx,s):=(1.0,Sqrt(Abs(x)),0.0);
for var i:=1 to n do begin
fact*=i; s+=1/fact+sqrtx
end;
Writeln('S=',5*s)
end.
<u>Пример</u>
n= 20
x= 3.18
S=186.916954143565
<u>№2</u>
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
var (powi,s):=(1.0,0.0);
for var i:=1 to n do begin
powi*=2; s+=(x+Sqr(Sin(i*x)))/powi
end;
Writeln('S=',s)
end.
<u>Пример</u>
n= 13
x= 0.59
S=1.12411258214649
25*80=2000 символов на экране
Unicode 16 битный:
2000*16=32000 бит (4000 байт)