8) A+1+B+0=1
0) 1*A+B*0+1 =A+1=1
10) 1+A*0 =1
<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin var y:=Range(2,36,2).Select(i->i*i).ToArray; y.Println end.
<u>Результат</u>
4 16 36 64 100 144 196 256 324 400 484 576 676 784 900 1024 1156 1296
Вот программа:
uses Crt;
const n=20;
type Vec=array [1..n] of integer;
var A: Vec;
i, Sum1, Sum2, Col1, Col2: integer;
begin
ClrScr;
Randomize;
Sum1:=0;
Sum2:=0;
Col1:=0;
Col2:=0;
WriteLn('Massiv A :');
for i:=1 to n do
begin
A[i]:=random(100);
Write(A[i]: 4);
if A[i]<50 then
begin
Sum1:=Sum1+A[i];
Col1:=Col1+1;
end else
begin
Sum2:=Sum2+A[i];
Col2:=Col2+1;
end;
end;
WriteLn;
WriteLn('Sred<50 :', Sum1/Col1:6:2) ;
WriteLn('Sred>=50 :', Sum2/Col2:6:2) ;
ReadLn;
end.
Мне кажется что второе но это кому-как.
логический тип, булев (Boolean) может принимать два возможных значения, иногда называемых правдой (true) и ложью (false)