(P*R)+(P*не R)+(Q*R)+(не P*Q*R)=R+(Q*R)+(не P*Q*R)=R+(не P*Q*R)=R+(не P*Q)
если неправильно, разрешаю прибить меня:D
Var a, b, c : integer;
begin
readln(a, b, c);
if (a = b) and (a=c) then writeln('Треугольник равносторонний');
if ((a=b) and (a<>c)) or (b = c) and (b<>a) then writeln('Треуголник равнобедренный')
end.
Const N:=30(любое значение);
var a:array[1....N] of integer;
begin
for i:=1 to N do begin
write ('A='); read (a[i]);
end;
c:=0;
for i:=1 to N do begin
if a[i] mod 3=0 then begin
c:=c+1;
end;
end;
write (c);
end.
64=2⁶, поэтому один символ кодируется 6 битами.
1907 * 1024 * 8 = 15622144 бит
15622144 / 6 = 2603691 Символ
<span>Так как 2048 Кбайт = 2 Мб, то
700 </span>Мб /2 Мб = 350