Var C:array[1..100] of Integer;
i,N,Q,R,A,B:integer;
T:real;
begin
Readln(N,A,B);
For i:=1 to N do
C[i]:=Random(-20,20);
R:=C[1];
Q:=1;
For i:=1 to N do
begin
If C[i]<R then
R:=C[i];
If C[i] mod 2=1 then
Q:=Q*C[i];
If (C[i]>A) and (C[i]<B) then
S:=S+1;
end;
T:=(R/(Q+1))+S;
Writeln(R,' ',Q,' ',S,' ',T);
end.
Var i,s:integer; st:string;
begin
st:='память';
s:=0;
for i:=1 to length(st) do s:=s+ord(st[i]);
writeln('s = ',s);
end.
Формальные языки - языки, в которых осмысленные сообщения содержат символы конечного алфавита, строятся и интерпретируются по определённым чётким правилам.
Примеры формальных языков: языки программирования, язык логики. Можно построить и свой формальный язык: например, будем бросать монетку и приписывать к строчке О, если выпал орёл, и Р, если выпала решка. Тогда множество строк, содержащих О и Р будет формальным языком, в котором, например, ОРР будет означать, что в первый раз выпал орёл, а потом два раза - решка.
8*1024*1024*8=67`108`864 бит
в мегабайте 1024 килобайт
в килобайте 1024 байт
в байте 8 бит
Program m3;
var s,k,m:real;
begin
readln(m,k);
writeln('m=',m,' k=',k);
s:=(26*k-m)/(6-4*k-56*m*k);
writeln('s=',s);
<span>end.</span>